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MODULE BASSCHANGE ( ; 
ow = "1-021" ! File: BASCHANGE.B32 EDIT: DG1021 


SRRO COREE HAA AERHAAAARREREHEHHHHAHHHETETEHERHEEEEHeeHeeeKeeeeeeeeneneeee 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


e 

® 

® 

® 

o 

: w 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTH I . 
IP OF THE SOFTWARE IS HEREBY ®* 
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ie» 


'® OTHER PERSON. NO TITLE TO AND OWNERSH 
'@ TRANSFERRED. 


'@ THE INFORMATION IN THIS SOFTWARE IS SUBJE 
D SHOULD NOT BE CONSTRUED AS A COMM 


poe cr TO CHANGE WITHOUT NOTICE 
'® CORPORATION. 


TMENT BY DIGITAL EQUIPMENT 


ts DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


-—- - 
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+ 
FACILITY: BASIC-PLUS-2 Miscellaneous 
ABSTRACT: 


FUN “OO OCONOAUS WN “OOOVOu lun 
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This module contains routines which change a character string 


SSsssosoooooooosooooeSoess 


to a List of numbers and vice-versa. 
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} 
} 
} 

H 00 ! 

; 34 ENVIRONMENT: VAX-11 User Mode 

; sre : AUTHOR: John Sauter, CREATION DATE: 20-FEB-1979 

$¢ 94 4 ! MODIFIED BY: 

4 004 : 

44 Boe ! 1-001 = Original. JBS 20-FEB-1979 

45 045 ! 1-002 = Track changes in the virtual array support code. JBS 03-APR-1979 

46 0046 ! 1-003 - Continue to track changes in the virtual array support 

47 0047 : code. JBS 04-APR-197 

48 0048 ! 1-004 = Change OTS$S and LIB$S to STR$. JBS 21-MAY-1979 

49 0049 ! 1-005 = Change the index parameters to BASSFETCH_BFA and BASSSTORE_BFA 

50 0050 : from b peterence to by yelue. JBS 01-JUN-1979 

51 0051 ' 1-006 - Use BASLNK, JBS 26-JUN-1979 

4 ttt ! 1-007 = Change call to STRSCOPY. JBS 16-JUL-1979 

5 5 ! 1-008 - BASSCHANGE_S_NA must apply the double precision scale 

54 0054 $ to double precision arrays, and BASSCHANGE NA_S must 

55 0055 : descale before converting to a string. P -May-1981 

56 9028 ! 1-009 - BASSCHANGE_S_NA was erroneously calling BASSFETCH_BFA to store 

57 005 : a value in a 2 dim. array. 
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14-Sep-19 4:46 


BASSCHANGE _NA_S was not freeing it’s dynamic string. 
aed ; pork isr new data types and dynamically mapped arrays. 
ar- 
Add support for decimal arrays. PLL 15-Mar-198 
Correct orpments in CVTPL, CVTILP. PLL 14-Apr-1982 
My os g_set scale to 6 and let FETCH_BFA do the scaling. 
- pr- 
Clean up comments, etc from last edit. PLL 21-Apr-82 
Add support for multiply dimensioned arrays. PLL 24-May-82 
Fix bug in changing from string to integer errors PLL Fong tee 
Fix bug in changing from integer to string. PL 26-Jul-198 
Changing a string a byte or word array goes not store the value 
in the proper location. Fix STORE. PLL 13-Sep-198 
Fix code which calculates the Lenggh for a virtual packed decimal 
array element. (Must be power of 2.) Also correct conversion 
of long to packed and vice versa. Long must be converted to 10 
Sheik packed with 0 scale, and then to desired length and scale. 
While fixing miscellaneous bugs, also add some code to make 
dynamically mapped arrays work properly, PLL 22-Sep-1982 
1-019 = remcve restriction of 255-byte destination character strings. 
dynamically gh yecete destination string based on length needed. 
MDL 14-Jun-198 
1-020 - Fixed: 1. if the string is longer than the numeric array, element 0 
of the numeric array contains the string s Length. 
2. if string Length > 255 and CHANGEing to byte array, 
integer error is signalled. DG 4-Jan-1984 . 
1-021 = Dynamic remapped decimal arrays no Longer get ‘Data type error’. 
At the same time, fixed the array Length £0) cut et tone for data 
types longer than 1 longword. 0G 9-Jan-1984 
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; SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


3 } 
x : 
1 
36 : 
5 r 
98 97 1 ! LINKAGES: 
oy 98 1! 
100 1 
101 100 1 REQUIRE “RTLIN:BASLNK'; 
198 177 1 REQUIRE "RTLIN:BASFRAME’; ! BSF symbols 
1 380 1 
104 81 1 LINKAGE 
105 86 1 COPY JSB = JS she 6j sites = 0, REG ister = 1) 
106 83 1 NOTUSED (2,3,4,5.,6.7,8.9, 1055 ); 
10 84 1 
108 85 1! 
109 Seo 1 ! TABLE OF CONTENTS: 
110 HH 1! 
111 0388 1 
118 0389 1 FORWARD ROUTINE 
11 0390 1 BASSCHANGE_NA_S : NOVALUE, ! Change List to strin 
114 0391 1 BASSCHANGE S_RA : NOVALUE, ! Change string to Lis 
115 0336 1 FETCH : NOVACUE, ' Fetch an array item 
116 0395 1 STORE : NOVALUE; ! Store an array item 
11 Bape 1 
118 395 1! 
119 Bene 1 ! INCLUDE FILES: 
120 0397 1! 
121 0398 1 
: § +44 : REQUIRE "RTLIN:RILPSECT’; ! Macros for defining psects 
152 0495 1 LIBRARY "RTLSTARLE'; ! System definitions 
125 0496 1 
126 0497 1! 
127 bcos 1 ! MACROS: 
126 99 #1! 
1$9 0500 1! NONE 
1 0501 1! 
131 B208 1 ! EQUATED SYMBOLS: 
13 0503 1! 
13 0504 1! NONE 
Ht Bebe 1! 
135 238 1 ! PSECTS: 
136 0507 1! ee 
Ht 4 £44 : DECLARE PSECTS (BAS); ! Declare psects for BAS$ facility 
139 0510 1 ! OWN STORAGE: 
140 0511 1! 
141 b2i¢ 1! NONE 
Hs 051 3 
14 0514 1 ! EXTERNAL REFERENCES: 
144 516 1! 
145 218 1 
146 517 1 EXTERNAL ROUTINE 
147 0518 1 BASS$STOP : NOVALUE, ! signals fatal error 


CHANGE 16-Sep-19 5:35 AX=-11 Bliss-32 v4. 
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EXTERNAL LITERAL 
BASSK_MA Maximum memory exceeded 
Program lost, sorry 
Data type error 
Arguments don’t match 
Subscript out of range 
Integer error 
Not implemented 


1 BASSSCALE_D_R1_ : BASSSCALE_LINK NOVALUE ! scale a value 
BASSDSCALE B_R1 : BASSSCALE_LINK NOVALUE, i descale a value 

? BASSSCOPY 5 .R1 : COPY_JSB NOVALUE, i copy a double number 

¢ BASSSVA_FETCH, i fetch a virtual array element 
§ BASSS$VA_STORE, i store a virtual array element 

4 STRSGETT DX, i allocate a string 
4 5 STRSFREET Di, i free a string 
; § STRSCOPY_Bx; i copy a string 

‘6 

; : The following are the error codes used in this module. 

i 

5 


wn 


BASSK"PROLOSSOR : : UNS 
BASSK_DATTYPERR : a 


IGNED +f 
IGNED (8) 
IGNED (8) 
BASSK"ARGDONMAT : UNSIGNED (8) 
IGNED (8) 
UNSIGNED (8) 
ED (8 


( 
( 
( 
( 
( 
( 


BASSK_NOTIMP : UNS 1 GN ); 
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3 «N71 41 1 GLOBAL ROUT INE BASSCHANGE_NA_S ( ! Change List to string 
8 17¢ 42 1 LIST _DESC ! Address of array descriptor 
; 17 43 1 STR_RESULT i Result string 

3 if re 1 ) : NOVALUE 

; 176 d } lee 

3 ie ri ! ; FUNCTIONAL DESCRIPTION: 

is 179 rk , : spans the List of numbers to a string. The first number is 

3 130 : ? ! : the Length of the string. 

. ' . 

E 186 08 ¢ ! FORMAL PARAMETERS: 

; 43 ; 4 1! LIST_DESC.rx.d The List of numbers. This may be word 

; 185 > eS longword, floating or double. It may be single- 
3 186 223 1} or double-dimensioned. 

; 18 > a STR_RESULT.wt.d The descriptor for the string result. It may 

; 188 558 1! be dynamic or static. 

; «6189 0559 1! 

; 190 S258 1 ! IMPLICIT INPUTS: 

; #6191 561 1! 

; 136 b208 1! NONE 

3; 05635 1! 

: 194 0564 1°! IMPLICIT OUTPUTS: 

3: 195 0565 1! 

; 196 8208 1! NONE 

; 197 0567 1! 
198 0568 1 { ROUTINE VALUE: 

; 199 569 1 ! COMPLETION CODES: 

; 200 0570 1! 

: 201 0571 1! NONE 

; 4 Bare 1! 

; 0 0575 1 ! SIDE EFFECTS: 

; 2046 0574 1! 

; 205 0575 1! NONE 

3 $08 pare 1! 

; 207 0577 1 !-= 

: 208 3278 1 

; 209 057 BEGIN 

: 210 0580 

: 211 0581 '¢ 

3 i a4 : The FETCH routine will copy all numeric elements from LIST_DESC 

3 + B2e7 into the string buffer. 

3 15 at FETCH (.LIST_DESC, .STR_RESULT); 

; 1g 0586 

3 1 0587 RETURN; 
> 218 0588 END; ! end of BASSCHANGE_NA_S 
| -TITLE BASSCHANGE 
IDENT \1-021\ 
| -EXTRN BASSSSTOP, BASSSCALE_D_R1 
-EXTRN BASSDSCAL 
~-EXTRN BASSSCOPY_B Ri, BASSSVA_FETCH 
-EXTRN BASSS$VA_STORE, STRSGET1~_DX 


14-Sep-1 


pee tbesep-1 


| 
| 7E o a o8 $3 


0000v CF 02 FB 
04 


3; Routine Size: 12 bytes, Routine Base: _BASSCODE + 0000 


; 219 0589 1 


3Be $1:5e:46 — EBASRTLeSRESBASCMANGE -082; 1 


STRSFREE1_DX, STRSCOPY_DX 
BASSK_MAXMEMEXC : 
“PROLOSSOR 
BASSK-DATTYPERR 
S$K"ARGDONMAT 
AS$K~SUBOUTRAN 
BASSK-INTERR, BASSK_NOTIMP 


-BASSCODE .NOWRT, SHR, PIC,2 
BASSCHANGE_NA_S, Save nothing 
List DESC, ~=(SP5 

#2, FETCH 


Page 
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0588 
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14-Sep-19 BASRTL.SRC JBASCHANGE .B (4) 
GLOBAL TS eA ( : grange aes list 
: LEST RESULT ! Where to put result 


‘ee 


i FUNCTIONAL DESCRIPTION: 


change the string to a List of numbers. The first number is 
the length of the string. 


FORMAL PARAMETERS: 


STR_DESC.rt.d The string to be converted to numbers. 

LIST_RESULT.wx.a The array of numbers to store in. The type 
may be word, longword, floating or double. 
it may have one or two dimensions. 


PUPP SPVSISIPSIIII 


SESSSFESSS 
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MEW —OOCONOU SEWN 
Oooo 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BEGIN 


WAPOROPURUNURUNUNONORY = ee 


SSERFUNSSSSSNVERRAN LS SeNenrwn—oSe we ARON 


MAP 
STR_DESC : REF BLOCK (8, BYTE); 


'¢ 
: Copy each character of the string to an element of the array. 


STORE (.STR DESC, .LIST_RESULT); 
RETURN; 
END; ! end of BASSCHANGE_S_NA 


DUS AP wy — OOS VOM RUN — OO 
FRESSSSSSSSSSESSSSSESSSSESSESFS 


WWWNAIANWNWW 


0000 00000 .ENTRY BASSCHANGE_S_NA, Save nothing : 0590 
7E 04 ac 7D 00002 MOVO STR_DESC, =(SP) > 0635 

0000v CF 02 FB 00006 CALLS #2, STORE ; 
04 00008 RET > 0637 


Be Se Be Se Se Se Se Se Ge Ge Se Se Ge Ge Ge Se Ge Ge Se Se Ge Ge Ge Se Se Be Ge Se Ge Ge Ge Se Se Ge Se Se Ge Ge en tenet @eee Seen Seee 
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‘pasa nance 1Seseoctgpe OO:05:55 yaya OLieg=Sz we.0a74g, | Page 8 
r Routine Size: 12 bytes, Routine Base: _BASSCODE + 000C 


; 269 0638 1 
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NOUS WN—OOW 


WN“ OOONAUS WN" O OONOUS W000 


oa 
o 


0665 


a ht ms kt a kk a st es a as = a a a a a ss ts 


ROUTINE FETCH ( 
DESCRIP 
STR DESC 
) : NOVALUE = 
++ 
FUNCTIONAL DESCRIPTION: 


always be numeric. 
FORMAL PARAMETERS: 
DESCRIP. rx.da 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 


COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


BEGIN 


GLOBAL REGISTER 
BSFSA_MAJOR_ST 
BSF SA_MINOR™ST 
BSFSA~TEMP_STG 


BUILTIN 
A 


LOCAL 
TEMP 
TR_STA 4 
EX” VALUE 
ATio 


Fetch array values from an array or virtual array. 


STR pest : BLOCK (8, BYTE), 


CATION 
ERS : REF VECTOR, 


“Sep 4:46 


' Fetch array values 


! Array descriptor 
! Where to store values 


The array will 


The values aie changed to a string. 


The descriptor of the array or virtual array 
STR_DESC.wx.dx The string buffer to hold the values 


Signals if an error is encountered. 


3 
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N 3 
pase EASINESS SUM s 


| 8 636 BOUNDS Rag VECTOR, 


331 
ls ; INDE X"NUMBER, 
3 1 val DESCR : BLOCK (12, BYTE], 
; 335 § STR_BUF : REF VECTOR C, BYTE), 
3 704 STR_BUF_LONG 
; 5 TEMP_LEN : VECTOR 4}. 
; § 7 TEMP“BUF : VECTOR [4]; 
: 340 & MAP 
H 41 9 DESCRIP : REF BLOCK i BYTE] 
i $4¢ 9 STR_DESC : REF BLOCK C8, BYTES; 
3 344 Orie git 
3 46 3 ? The coefficients and bounds must be present. 
3 34 0715 2- 
; rt ° § IF ( NOT (.DESCRIP COSCSV_FL_COEFF] AND .DESCRIP CDSCS$V_FL_BOUNDS])) THEN BAS$$STOP (BASS$K_ARGDONMAT); 
; $56 0718 MULTIPLIERS = DESCRIP CDSC$L_M1]; 
; 3 3 ; BOUNDS = DESCRIP CDSCSL_M1] ¥ (ZUPVAL®.DESCRIP COSC$B_DIMCT)); 
3 2g 0721 i Compute the lower and upper index numbers based on how the array 
3 re] 2 ; is stored. 
; 35 0724 2 
; 33 8 5 AS eee CDSC$V_FL_COLUMN]) 
; 359 0799 EGIN 
H 60 0728 LOW INDEX = .DESCRIP CDSCS$B_DIMCTI; 
; 361 0729 HIGA_INDEX = 1; 
; 362 0730 INDER_INCR = 1; 
: 37 6 esee 
; 363 $583 BEG! 
; 366 0734 LOW INDEX = 1; 
3; 367 0735 HIGA_INDEX = ,DESCRIP COSCS$B_DIMCT); 
; 368 0 6 INDER_INCR = 1; 
Pie ER ip tno 
; % 9 0 i If this is a decimal array, the length is the number of 4 bit digits 
3 37 0741 ! (not including the sign). Convert this to the number of bytes. 
3 5374 7 § ! Decimal virtual arrays and record virtual arrays are stored with 
3 o : i : @ length that is a multiple of 2 = check for that here also. 
: 4 0745 CASE DESCRIP CDSC$B_DTYPE] FROM DSC$K_DTYPE_B TO DSC$K_DTYPE_H OF 
2. at 
; 80 748 CDSCSK DTVPE_P): ! decimal 
; 38 750 LENGTH = (DESCRIP CDSCSW_LENGTHI/2) + 12 
3 38 751 IF .DESCRIP CDSC$B_CLASSJ™EQL DSC$K_CLASS_BFA 
3; «64584 0752 THEN 
! 
| 
| 
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COSCSK_DTYPE_P) : 
CHSMOVE TC. DESC 
DES 


CDSCSK_DTYPE_DSCJ : 


DESCRIP 
CRIP cb 


ae 
—Gy 


10372} + 1, 
NTERJ, TEMP_LEN); 


so 
sa 
a 
or 


LINRANGE ,OUTRANGE) : 
BASSS$STOP (BASSK_DATTYPERR); 


case -DESCRIP CDSCSB_DTYPE] FROM DSCSK_DTYPE_B TO DSCS$K_DTYPE_H OF 


COSCSK_DTYPE_B) : 
ARRAY_LEN = “BLOCK CTEMP LEN, 0, 0, %BPUNIT, 1); 


COSCSK_DTYPE Ww) : 
ARRAY_LEN = .BLOCK CTEMP_LEN, 0, 0, %BPVAL/2, 1): 


CDOSCSK_DTYPE_L) : 
ARRAY_LEN = TEMP JLEN; 


CDSCSK_DTYPE_F 
CVTFL CHEMP. LEN, ARRAY_LEN); 


[DSC$K_DTYPE_D} : 


BEGIN 
I A double value must be de-scaled before it can be used. 
LOCAL 
TEMP DBL : VECTOR (2); 
REGISTER™ 
at = 9. 
BAS{SCOPY_D_R1 (TEMP_LEN, TEMP_DBL (0); 
eae B_R1 (.TEMP_DBL COJ> .TEMP_DBL [1)); 
TEMP_D oy = .RO:; 
TEMP~DBL [1] = .R1: 
cVTOL TtEMP-p DBL (05, ARRAY_LEN); 


CDSCSK_DTYPE_G) : 
CVTGL (TEMP_ LEN, ARRAY _LEN); 


CDSCS$K_DTYPE_H 
CVTHL CHEMP. LEN, ARRAY_LEN); 


CDSCSK_DTYPE_P] : 
BEGIN 
LOCAL 


TEMP_P_: VECTOR (6,BYTE); 
ASHP (DESCRIP cose SCALES, DESCRIP CosCSw_LENGTHI, 
TEMP f J, ZREF(O), REF (10), TEMP_P7COJ); 
cvTPL (AREF (10), TEMP_P, ARRAY_LEN); 
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499 867 
: o8 CDSCER PT VPE9SC3 : ! dynamically mapped array 
¢ 9 LOCAL 
i ELEM_DESC : REF BLOCK (8,BYTEI; 

05 78 JF jDESCRIP CDSCSB_CLASS] EQL DSCSK_CLASS_BFA 

U4 of BASSSSTOP (BASS$K_NOTIMP); ! no virtual dyn mapped arrays 
09 BPe ELEM_DESC = .DESCRIP COSCSA_POINTER]; 

19 878 CASE -ELEM_DESC COSCSB_DTYPE] FROM DSCSK_DTYPE_8 TO DSCSK_DTYPE_HM OF 
\@ 0880 CDSCS$K_DTYPE_8) : 

1 0 1 ARRAY_LEN = 
218 st "atock: C.ELEM_DESC COSCSA_POINTER], 0, 0, %B8PUNIT, 1); 
218 0884 CDSCSK_DTYPE Ww]: 

1 0885 ARRAY_LE 
218 at, "BLOCK. C.ELEM_DESC COSCSA_POINTER], 0, 0, %B8PVAL/2, 11; 
256 0888 CDSCSK_NTYPE uj : 
38 0889 ARRAY_LEN = .(.ELEM_DESC CDSCSA_POINTER)); 
5 ; 0891 COSCSK_DTYPE_F) : 
ese 94 CVTFL ¢ ELEM. DESC COSCSA_POINTER], ARRAY_LEN); 
526 0894 CDSC$K_DTYPE_D] : 
527 0895 4 BEGIN 
528 pene 4 LOCAL 
29 0897 4 TEMP DBL : VECTOR (2); 
530 0898 «4 REGISTER™ 
531 0899 4 RO = 0, 
238 0900 4 R1 = 
53 0901 4 BASSSCOPY % R1 (.ELEM_DESC CDSCSA POINTER] TEMP_DBL (0J); 
534 090¢ 4 BASSDSCAL 5. RI (. TEMP_DBL CO), .TEMP_D i €1)): 
535 0903 4 TEMP PBL O)"=. : 
536 0904 4 TEMP 1 
537 0905 4 cre. Ot ERP “DBL “[O3, ARRAY LEN); 
538 BON8 END; 
238 090 

40 0908 COSC$K DTYPE 6) : 
241 9909 CVTGL (TELEM_DESC CDSCS$A_POINTER], ARRAY_LEN); 
e¢ 911 CDSCSK_DTYPE_H 

ae ats , CVTHL (¢ feten: DESC CDOSCS$A_POINTER], ARRAY_LEN); 

546 0914 3 CDSC$K_DTYPE_P) : 

47 0915 4 BEGIN 

48 0916 4 LOCAL 

549 0917 & TEMP_P : VECTOR C6. eByTed 

550 0918 4 ASHP (ELEM DESC. CDSC$B'S ELEM DESC CDSC$W_LENGTH], 
551 0919 4 ELEM best CDSCSA_ POTATeRs, ZREF(O), REF (10), 

23¢ 920 4 TEMP _P 9): 

55 921 & CVTPL (ZREF(10), TEMP_P, ARRAY_LEN); 

554 09 é ; END; 

555 09 
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i 


CINRANGE 5 OUTRANGE) : 
BASSSSTOP (BASSK_DATTYPERR); 


TES; 
END; 

Cinmanee OUTRANGE) : 
___BASS&STOP (BASSK_DATTYPERR) ; 
'¢ 


! Now that we know how long the array is, we can allocate a temporary strin 
: to CHANGE the array inter af . : 


TEMP_STR_DESC DSC$B CLASS] = DSCSK 
TEMP-STR-DESC CDSCS$B_DTYPE K~ 
TEMP-STR-DESC CDSCSW-LENGTH] = 0: 
TEMP-STR-DESC CDSCSA-POINTER) = 6; 
STR_STATOS = STRSGETT_DX (ARRAY_LEN, TEMP_STR_DESC); 
If NOT .STR_STATUS 


HEN 
BASSS$STOP (.$TR_STATUS) 3 
STR_BUF = .TEMP_STRDESC CDSCS$A_POINTER]; 


te 
! Compute Linear index. Note that all indicies will be zero except for one, 
! since CHANGE operates only on row 0. This code should accomodate FORTRAN 


BEGIN 
INDEX_NUMBER = .LOW INDEX = .INDEX_INCR; 
INDEX" VALUE = .INDER; 
VALUE-LOCATION = 0; 


WHILE (CINDEX_NUMBER = .INDEX_NUMBER + .INDEX_INCR) NEQ (.HIGH_INDEX + .INDEX_INCR)) DO 
IF (C.INDEX_VALUE LSS .BOUNDS [(. INDEX NUMBER = 1)#2]) 
bes 4 (. INBEX_VALUE GTR .BOUNDS [((.INDEX_NUMBER - 1)*2) + 1))) 

BEGIN 

STRSFREE1_DX (TEMP _STR_DESC); 

BASS$STOP™ (BAS$K_SOBOUTRAN) ; 


END 
VALUE_LOCATION = (. VALUE _LOCATION® MULTIPLIERS C.INDEX_NUMBER = 1]) + .INDEX_VALUE; 
: @ 


INDEK_VALUE = 0; LL indicies except Ist are zero 


VALUE_LOCATION = (.VALUE_LOCATION®.LENGTH) + .DESCRIP CDSC$A_AOJ; 


'¢ 
! Build a descriptor pointing to the value cell in the array. If this 
! is an array of descriptors, the descriptor is copied, otherwise it 
is constructed. 


PANNA AAA B&B TB ID BANNAN PIPPIN PONIPIPIPUPIPIPINIPIPIPUNPIPIPIPIPUPIPIPIPIPI Iw 


| 
: arrays. 
INCR INDEX FROM 1 TO .ARRAY_LEN DO 
' 
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— COSCSB_DTYPEJ EQLU DSCSK_DTYPE_DSC) 
BEGIN 


Pp 
VALUE LOCATION : REF BLOCK (8, BYTE]; 


VALUE _DESCR btu -LENGTH = “VALUE LOCATION [DS 
ALUE-DESCR Dive, = .VAL E COcaTION D 

VALUE “DESCR DSCs CLASS] = ue cy LUE _LOCATI 
E SE .VALU E LOCATION cos¢$B, 

VALU BESCR bse A_POINTER) = vALUe Er|Otation [ 

dF yee DESCR COSCSB_DTYPE) E DTYPE_P 


BEGIN 
MAP 


VALUE ‘wou : REF BLOCK (12,BYTE) 
VALUE. -DESTR 


END 
ELSE 

BEGIN 
VALUE_DESCR CDSC$W_LENGTH] = .DESCRIP CDSC$W_LENGTH); 
VALUE~DESCR DSC$B-DTYPE] = DESCRIP COSC$B_BTYPE); 
VALUE_DESCR CDSC$B-CLASS] = DSCSK_CLASS_S; 
VALUE~DESCR CDSCSA“POINTER] = .VACUE LOCATION; 
AF VALUE .DESCR COSCSB_DTYPE] EQL DSCSK_DTYPE_P 

BEGIN 

DESCR REF Kk 012.87 TE] 

VALUE BESCR toscse LO ALE "DESCRIP CDSC$B_SCALE); 

END; 


! Special handling if this is a virtual array. 


ee CDSC$B_CLASS] EQLU DSC$K_CLASS_BFA) 
BEGIN 
ce COSCSB_DTYPE] EQLU DSCSK_DTYPE_DSC) 


—— CDOSCSB_DTYPE] EQL DSCSK_DTYPE_P 
BEGIN 


LOCAL 
TEMP BLOCK (12, BYTE) 
TEMP_DSC™ BSciBe DTYPE) = DSCSK “brvPe _P; 


CSeascHange. 3 2:1 


4 cs. LENGTHI; 
oy Poecsecé tiass3 EQLU DSCS$K_CLASS_D) THEN DSCSK_CLASS_ 
DSCSA_POINTER]; 


DSC$B_SCALE] = .VALUE “LOCATION (DSC$B_SCALEJ; 
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14-Sep-1 54:46 BASRTL .SRC JBASCHANGE . 5 2:1 
TEMP_DSC [DSC$B_CLASS] = SCS CLAS 

TEMP~DSC DSC SunLENGTH) 2 SCRIP. stiy LENGTH); 

TEMP~DSC DSCSA-POINTER] = Bit PB 

TEMP~DSC DSCSB_SCALE = DESCRIP ose § SCALE); 

BASSSVA_FETCH (TDESCRIP, .VALUE_LOCATION, TEMP_OSC) 


LSE 
BASSSVA_FETCH (.DESCRIP, .VALUE_LOCATION, TEMP_BUF [0]); 
VALUE _DESCR CDSCSA_POINTER] = TEMP_BUF (0); 


END 
ELSE 
A mel CDSC$B_CLASS] NEQU DSCS$K_CLASS_A) 
BEGIN 
STRSFREE1_Dx (TEMP_STR_DESC); 


E1 s- 
BASSSSTOP (BASS$K JNOT IMP); 
END; 


'¢ 
Data is converted to longword (to use BUILTINs) and then to byte. 
CASE © ee neeee CDSCSB_DTYPE] FROM DSCSK_DTYPE_B TO DSCSK_DTYPE_H OF 


COSCS$K_DTYPE 8 SCSK_ pire i » OSCSK_DTYPE_L 


STR_BuF TC. index “1] = TCC VALUE_BESCR thacéa. POINTER]); 
Coston PTWe. FJ : ! 32-bit floating point 
CVTFL (.VALUE_DESCR CDSCSA tw STR_BUF _LONG); 

STR_BUF C.INDEX - 1] = .STR_BUF_LONG; 
END? 
COSCSK_DTYPE_D) : ! 64-bit double floating 
BEGIN 
i Double values may need to be de-scaled. 
LOCAL 
TEMP DBL : VECTOR (2); 
REGISTER™ 
RO = 0 


R1 = 
BASSSCOPY 5 R1_ (VALUE _DESCR COSC$A_POINTER) TEMP _DBL (0]); 


BASSDSCALE_B_R1 (.TEMP-DBL (OJ, .TEMP_DBL (14); 
TEMP_DBL [OJ7= .RO; 

TEMP"DBL [1] = .R1: 

CVTDC (TEMP DBL CO), STR_BUF_LONG); 

STR BUF INDEX = 1) = .STR_BUF_LONG; 


CDSC$K_DTYPE_G) : ! G floating 
BEGIN 


H 4 

ASSCHANGE 16-Sep-1984 00:05:35 AX-11 Bliss-32 V4.0-7% 
wassf 1o=8e8=1 he 90:97:22 HBASRTL SRe BASCHANGE .832;1 
: 727 1095 4 CVTGL (.VALUE_DESCR CDSCSA_POINTER], STR_BUF_LONG); 

: , 8 % 4 SR BUF C.INDEX = 1] = .STR_BUF_LONG; ~ ~ 

: 7 109 ; " 

3 4 1 : 38 i COSCEE PTVPE HO : ! H floating 

: 7 5 1109 4 CVTHL (VALUE DESCR_COSCSA_POINTER], STR_BUF_LONG); 

; , é 1 ; 4 STR_BUF C.INDEX = 1] = .STR_BUF_LONG; 

is 7 1104 ; : 

13 4 1 5 ; CDSCSK DT YPE_PJ : ' decimal 

': 739 11 4 LOCAL 

: 740 1108 4 P : VECTOR (6,B8YTE); 

3 724i 1109 4 ASHP (VALUE DESCR COSC$B _SCALEJ, VALUE_DESCR [DSC$W_LENGTH], 
|3 6 W110 4 VALUE DESCR CDSCSA_POINTERS, REFTO), UREF(10)> 

3 764 1118 4 CVTPL (ZREF(10), TEMP_P, STR_BUF_LONG); 

: 24 1113 4 STR_BUF C. INDEX = 1) = .STR_GuF_CONG; 

+ 7% 1115 ; : 

$ 4 1118 z CDSCSK PTVPE BSC : ! dynamically mapped array 

: 750 1118 4 

3 73 1119 4 If, DESCRIP CDSCSB_CLASS] EQL DSC$K_CLASS_BFA 

: 75 1121 BEGIN 

: 754 11 ; H STRSFREE1_DX (TEMP STR DESC): 

; £39 1 2 ? pasesstor (BASSK_NOTIMP) ; ! no virtual dyn mapped arrays 

: 757 1125 4 ‘ 

3 738 " $ 4 CASE -VALUE_DESCR COSC$B_DTYPE] FROM DSCSK_DTYPE_B TO DSCSK_DTYPE_H OF 
: 760 1128 4 CDSC$K_DTYPE_B) : 

+ 761 1129 4 STR_BUF CONG = 

; re i ? : -BLOCK C.VALUE_DESCR COSCSA_POINTER], 0, 0, %BPUNIT, 1); 
: 764 1138 4 CDSCSK_DTYPE_w) : 

: 765 11 4 STR_BUF _CONG = 

5 4] BE ? -BLOCK C.VALUE_DESCR CDSCSA_POINTER], 0, 0, %8PVAL/2, 1]; 
: 768 1136 4 CDSC$K_DTYPE_L) : 

: 769 + 6 STR_BUF_CONG = .(.VALUE_DESCR CDSCSA_POINTER)); 

: 771 1139 4 CDSC$K_DTYPE_F) : 

3 46 Bb ? CVTFL (.QALUE_DESCR CDSCSA_POINTER], STR_BUF_LONG); 

3 77% 1148 4 CDSC$K_DTYPE_D] : 
(2 OR ae 3 adh 

; 77 1145 § TEMP_DBL : VECTOR (2); 

oe rE 

: 780 114 R1 = 1: 

> 781 1149 BASSSCOPY_0_R1 (.VALUE_DESCR [CDSC$A_POINTER], TEMP_DBL [0]); 
|: 782 1150 BASSDSCALE B.R1 {-TEMPCDBL C0), .TERP_DBL C14); 
i 78 1151 TEMP_DB. COJ7= .RO; 


Referenced REGISTER s 
INF 


4 
ASSCHANGE rbese =1984 00:05:35 AX-11 Bliss-32 V4.0-7%4 
BS 10-8 08- 198 90:97:23 EBASRTL SRe BASCHANGE . 
; 1 TEMP_DBL (1) = RI; 
t Pee 11 § 3 CvToc (TEMP DBL (OJ, STR_BUF_LONG); 
is @ 1156 & END; 
ae. 1155 4 
is 7 11 $ 4 COSCSK_DTYPE_G] : 
3 f 1 ? CVTGL (cVALUE_DESCR CDSCSA_POINTER], STR_BUF_LONG); 
_¢* 
3; 791 11 § 4 CDSC$K_DTYPE_H) : 
3 29 1160 4 CVTHL (.VALUE_DESCR COSCSA_POINTER], STR_BUF_LONG); 
f 79% I16¢ 4 (DSCSK_DTYPE_P) : ! decimal 
(3 795 116 BEGIN 
3 196 1164 LOCAL 
: 79 1165 TEMP_P : VECTOR (6,BYTE); 
: 798 1166 ASHP (VACUE_DESCR COSC$B SCALE], VALUE_DESCR CDSC$W_LENGTHI, 
; 799 116 -VALUE BESCR COSCSA_POINTERS. ZREFTO), ZREF(10)> 
; 800 1168 TEMP PY; 
; 801 1169 CVTPL (ZREF(10), TEMP_P, STR_BUF_LONG); 
: 80¢ 1170 STR_BUF C.INDEX’= 1] = :STR_BuF_CONG; 
3 80 171 4 END; 
3 804 1178 4 
: 805 1173 4 CINRANGE, OUTRANGE) : 
: 06 117% BEGIN 
; 80 1175 STRSFREE1_DX (TEMP_STR DESC); 
; 808 1176 BASSSSTOP™ (BASSK_DATTYPERR) ; 
: 809 1177 4 END; 
: 810 1178 4 
: 811 1179 4 TES; 
; te 1180 END: 
; 3 1181 
3; B14 a CINRANGE, OUTRANGE) : 
; 819 1183 4 BEGIN 
: B16 1184 4 STRSFREE1_DX (TEMP_STR_DESC); 
3 817 1185 4 BASSSSTOP™ (BASSK_DATTYPERR) ; 
; 18 1139 END; 
3 19 11 
: 820 1188 TES; 
: 1 1189 
; , 1190 END; ! end of INCR Loop 
; 1191 
3 4 1338 '¢ 
: 5 BS, : copy string back to caller 
; 2 1195 , STRSCOPY_DX (.STR_DESC, TEMP_STR_DESC); 
: $6 1197 : free temporary string 
3; 831 1199 STRSFREE1_DX (TEMP_STR_DESC); 
: ig 1503 END; ! end of FETCH 
t Piteranved REGISTER spans 0848 bably not initialized 
3; ReTerence Ss S$ probadly no 
t INFO#250 “ens oh? 


L 
; Referenced REGISTER symbo 
INF O#250 L 


1 

: 

t R1_ is probably not initialized 
1:0903 oe 

t RO is probably not initialized 
1:0904 


2:1 


threat 


4 
: HANGE 1b-5 -1 05:35 AX-11 Bliss-32 V4.0-74 Pp 9 
bets yengeen19be $Fi82:28 | PB sat tae feaschance oS2;1 alt} 
voles ed REGISTER ate i,48 probably not initialized 
Reterenced REGISTER ona is probably not initialized 


—-— 
— 


Se Ge Ge Ge Ge Ge Ge Ge ee 


L1:1088 
Referenced REGISTER symbol R1 is probably not initialized 
INF 08250 ttisie . 


vererse ed REGISTER one f 53° probably not initialized 
Referenced REGISTER symbol R1 ‘s probably not initialized 


| 
| 
OFFC FETCH: .WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 3 0639 
SE AO AE i ii ROVAB =96(SP : 
50 06 A OA C1 00006 ADDL3 #10, DESCRIP, RO t 0716 
2 6 —1 00008 BBC #6, (RO) : 
1 04 AC OA 4 OO0F ADDL3 #10, DESCRIP, RI : 
61 95 00014 TSTB (R15 : 
08 19 0016 BLSS : 
43 006 8F 9A 00018 18 MOVZBL #BASS$K_ARGDONMAT, -(SP) : 
000000006 01 FB oot CALL #1, BASSSSTOP 3 
10 AE 04 AC 14 C1 00023 28 ADDL #20, DESCRIP, MULTIPLIERS > 0718 
51 A 08 1 0029 ADDL3 #11. DESCRIP, R1 + 0719 
5 61 A 000¢ MOVZBL (R1), R : 
51 06 AC 14 €1 000 ADDL3 #20 DESCRIP. R1 : 
08 AE 6140 DE 000 MOVAL (R1SCROJ, BOUNDS F 
51 04 AC 0A Ci 000 ADDLS #10, DESCRIP. R1 + 0725 
0c 1 93 E1 00040 BBC #5, (R1), 3$ : 
7 0 DO 00044 MOVL RO, LOW INDEX : 0728 
56 01 DO 00047 MOVL #1, HIGA_INDEX 3 0768 
Oc AE 01 cE 00044 MNEGL #1, INDER_INCR : 07 
A 11 0004 BRB 4$ + 0725 
57 1 p00 00050 3s: MOVL #1, LOW_INDEX : 0734 
oT 0 DdO 0005 MOVL RO, HIGA_INDEX : 0735 
OC AE 01 D0 0056 MOVL * INDER_INCR : 0736 
53 06 at é ¢ 005A 4$: ADDL3 #2. DESCRIP, R3 + 0745 
16 96 63 BF 0005F CASEB (RS), #6, #22 ; 
002€ O0zE 002€ 002€ 90063 5$: <WORD 6$-5$,- : 
002€ 002€ 002€ 002€ 0068 6$-5$.- : 
$089 O03 O05 805E «OOF o5-83°- 
002€ E 09 E 09 7 0088 6$-38.~ : 
O2E E 02 00 6$-38.- ; 
6$-5$,- : 
6$-5$.- : 
6$-5$.- ; 
6$-5$,- 5 
6$-5$,- : 
6$-5$,- 3 
6$-5$,- 3 
6$~38.- ; 
$-5$.- 3 
6$-5$,- : 
6$-5$,- 3 
| 
| 


Kk 4 
16-Sep-19 05:35 AX-11 Bliss-32 V4.0-7%4 Pp 
1e=$tp-1986 11:50:46 — EBASRTL SRESBASCHANGE-B52;1 ase 8} 
6$-5$,- 3 
6$-5$,- 3 
6$-5$,- 3 
at : 
04 MOVZWL @DESCRIP, R2 + 0762 
move Ree LENGTH : 
04 8 mOvZ apescRIP R2 : 0750 
DIVL #2, R2, RO 3 
01 A MOV 1(R0), LENGTH : 
0 ADDL3 «#3 DescRiP, RO : 0751 
6 cmpB 3 =s«¢RO), #19 : 
1 BNEQ 108 : 
MOVL 1, : + 0756 
ASH =s:sdL,- #1, RI : 
CMPL NGTH, R1 : 
BGEQ : 
1 MOVL R1, LENGTH : 0757 
7 BRB 10$ : 
9 AOBLEQ 1 + 075 
1 MNEGL #1. LENGTH + 075 
3 ADDLS #3. DESCRIP, RO : 0769 
0 CMPB Es« (RO), #191 : 
BNEQ : 
ADDL3 #2 DESCRIP, RO : 0772 
6 CMPBEs« CRO), #21 : 
1D BNEQ : 
0915 8F MOVW #2525 TEMP_DSC+2 : 0777 
2 MOVW 2, TEMP_ : 0779 
3c.)hC«‘«A rey na LEN, TEMP_DSC+4 : 0780 
0 ADDL3 #8, BESCRIP, RO : 0781 
60 MOVE (RO), TEMP_OSC+8 F 
20 A ‘ PUSHAB TEMP. DSC + 0782 
3c «= AE «OOF OOOFB 11$: + PUSHAB’ ~TEMP_LEN : 0785 
7E 04 OOOFE 128: CLRL -(SPJ 3 
04 aC DD 001 PUSHL DESCRIP 3 
g Fe 019 CALLS #3, BASSSVA_FETCH : 
- 1 91 A BRB : 0771 
02 C1 0010C 13$: ADDL3 #2, DESCRIP, R9 + 0788 
8F gin CASEB (RO), #6, #22 : 
115 148: <WORD  16$-14$,- ; 
038 O10 16$-14$.- ; 
0 : 5 16$-14$, : 
6 E 1 5 ; 
O2E 001 3 
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3¢ 

51 04 
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SA 04 
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54 04 
16 
003F 
00cB 
00CB 
00CB 
O7A 
0 

1¢ 
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08 


Fi 
18-5 “19 
1a-8ep-19 


F 9A 00143 158: 
1 =F 14 
4 3 135 16$ 
1 
3 1 8 = 
8 5D dot 
8 11 0016 
ro ci 38 18$: 
60 » O19 
AO 7D 00175 
, ay 17A 
g 06 1Fe 1968s 
os $8 Ob1po 
02 st 338 208: 
4 F 001 
0031 sd bd 218: 
046 019C 
OCB O01A4 
0cB OO1AC 
00CcB 001B4 
00cB 0018C 
009A 1 OO1C 
AE 98 001C5S 228: 
2E 11 OO1CA 
AE 32 OOICC 238: 
2 1 01D1 


Be F982: 


BRW 
CVTBL 
BRB 
CVTWL 
BRB 


rete Or ise 
BASRTL.SRC 


=32 V4.0-74 
BAS CHANGE .B 


$251 


sa 


35 
46 
19$-14 
Hate 
15$-14$ 
; $-14$ 
$-14$ 
15$-14$ 
17$-14$ 
18$-14$ 


S$K_DATTYPERR, (SP) 
#1, BASSSSTOP 


#4, DESCRIP, RO 
(ROD, TEMP_LEN 


#4, DESCRIP, RI 
(RO), TEMP_LEN 
4, DESCRIP, R1 


(RO), TEMP_LEN 
§<RO5, TEMP_LEN+S 


rs 


esses ese eeeeeeeeeee eee eee 
seeeveevpeeveeeee ee tte eee 6 te 


rs 
Ca 
‘ 
ss as ss a — as ss ss os ss 4s 49 4 ss 4 9 ss 


TEMP_LEN, ARRAY_LEN 
TEMP_LEN, ARRAY_LEN 
258” 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Se Ge Se Be Be Se Se Be Be Se Se Se Se Se Se Ge Se Se Fe Ge Se Be Se Se Se Se Se Se Se Se Se & 


0819 
0791 
0796 
ge 
0806 


07 
081 


0822 


0931 
0825 


0828 


i a 


= ere: 18-Sep-1984 99:08: 3 a NsaTe Saf Seaschance oS2:1 Page $5 
T 


| 10 AE 3C AF p90 19 248: OVE MP_LEN, ARRAY_LEN : 0831 
| 1c AE 3C ag 4A OO1DA 258 CVTFL Ten LEN, ARRAY_LEN + 0834 
19 11 OO1DF RB 29 ; 
1 6 Ae 1E1 26$ MOVAB TEMP_DBL, R1 + 0846 
0 C AE 163 MOVAB TEMPTLEN, RO : 
00A 1£ BRW 42$ * : 
1c AE 3¢ AEGAFD TEC 27% cVTGL TEMP_LEN, ARRAY_LEN + 0854 
| 1c AE $C AEGAFD OOIFS 28$:  CVTHL TEMP_LEN, ARRAY_LEN : 0857 
7€ 11 OO1FA 29%: BRB : 
55 AC ct IEC 0$: ADDL DESCRIP, RS + 0864 
00 3C AE ‘ BC > F 0 ot ASHP we @DESCRIP, TEMP_LEN, #0, #10, TEMP_P ; 
0087 31 00208 BRW + 0865 
50 04 Ac 03 q O20E 31% ADDL3 DESCRIP, RO + 0873 
BF BF 0 91 0021 CM tt : 
12 0021 BNEQ 32$ ; 
7E 006 8F 9A 00219 MOV ZBL aBA S$K NOTIN. (SP) + 0875 
000000006 00 FB 00210 CALL , BASSSS ; 
50 04 AC 04 C1 00224 32$: ADDL At DESCRIP, FRO + 0877 
5 60 BO 0229 MOVL (RO) ELEM DESC : 
16 0 02  A2 8&F 0022C CASEB sibs MODEST), #6, #22 : 0878 
002€ 0049 004 0038 00 1 33$ < WORD : 
O05 b05E O03 b3eOSat is 338: 
a a: i SE BERE: : 
0082 ie 002E 00259 41$- 38.- F 
4$-33$.- ; 
4$-33$.- ; 
4$-33$.- 3 
4$-33$,- 3 
4$-33$,- 3 
4$-33$.- : 
34$-33$.- ; 
45$-33$.- 3 
34$- $,- § 
34$- $,- $ 
4$-33$,- ; 
4$- $,- q 
4$-33$.- : 
43$-53$,- 3 
44$-33$ 3 
7E 00G 8F 9A OO25F 34$: MOVZBL #BASSK_DATTYPERR, -(SP) + 0925 
000000006 00 gi re 0 63 CALLS a BASSS$STOP ; 
4 98 0 6¢ 58: cVTBL a4 (ELEM_DESC), ARRAY_LEN ; 0882 
1c AE 04 : $3 0 r $:  CVTWL @4(ELEM_DESC), ARRAY_LEN > 0886 
1 0278 38$: BRB 47 > 0885 
1C AE 04 Be 06 0 zh 9$: MOVE a4 (ELEM. DESC), ARRAY_LEN ; 0889 
1¢ AE 04 Be 4A 00 81 40S: CVTFL a4 (ELEM DESC), ARRAY_LEN > 0892 
43 11 00 BRS 47$ 3 


1c AE 04 
| 
| 


Se: 4 
| “Sep- :05: AX-11 Bliss-32 v4.0-74 Page 23 
b= <: ams i ~ge7} 38% 90:93:33 BASRTL.SRCIBASCHANGE .B 2:1 (83 
| TEMP_DBL, R1 3 0901 
| 35 ¢ ry . Bc she mOVL ciELER DESC), RO ; 
| 000000006 } 42% JSB BASSSCOPY_D_A1 : 
| 50 AE 7D 00296 VQ TEMP DBL,~RO ; 0902 
000000006 06 }6 9A JB BASSDSCALE D_R1 ; " 
| ¢ A 24 «OA eh 4 CVIDL TEMP DBL: ARRAY_LEN ; 205 
| 1¢ AE 04 é oarD AB 43$: CVTGL a4 (ELEM_DESC), ARRAY_LEN 
| 1 AE 04 8 oAtD 83 44$: CVTHL a (ELEM_DESC), ARRAY_LEN ; 0912 
AS fa bode (ELEM_DESC), = : 0920 
00 04 82 : 62 08 th 8 6 e 45$: ASHP Boe BiDac gms GeLEM-DESC)- a4 (ELEM_ le 
$ MP_P 3 
- = z AE 20€0000 BF 8 6 ; 43 : hove’ a3ak7 1967 fEMP_STR_DESC + 0940 
ele 5C AE OG 58 CLRL  —« TEMP_STR_DESC+4 ; 0941 
58 AE oF § D6 PUSHAB TEMP™STRTDESC : 0 
0 MS fe bocce CALS. Pr Dx : 
eee. $9 08 4 es BLBS STR_STATUS, 28S : 0943 
ay Pe BS £8 Cure Bh BASsssTOP ; 
4 BORE Bm BR erie li. sana, as 
57 OC AE O2F3 SUBL : s 9931 
= 146 AE 0¢ BEGG i Hh ROVAB @INDER_INCRCHIGR_ INDEX, 20(SP) ; 0961 
0284 31 00301 BRW 3$ pa 
: 4(SP), INDEX_NUMBER : 
ee Se ee te + 
56 D4 2 0959 
: NDEX"INCR, INDEX_NUMBER ; 
14 2? = sf sf 0030 ne cnt INDEXCNUMGER, 20(SP) ; 
55 $3 i Sais Rene #1, INDEX_NUMBER, RO ; 0963 
34 08 AE 08 ig ist SUBL3. #8, BOUNDS, R 3 
o 6140 04 AE O01 0321 CHPL NDEX, VALUE. (R1) CROJ ; 
08 AE bs (3 $3 8 SUBL 3 #4, BOUNDS, R1 3 0964 
“ 6140 04 AE Di 03 D cMPL INDEX_VALUE , (R1) CROJ ; 
48 he $e 03 ¢ 51$: PUSHAB TEMP STR DESC zs 0967 
oe 006 BF 9k 008% NOVZBL ABASSK SUBOUTRAN, ~(SP) ; 0968 
6 ¥ F § 4 CALL aie BASS$STOP Pins 
eoceseree 04 €3 00349 528:  SUBL MULTIPLIERS, R1 : 0970 
24 oi 6145 €5 0034 “MULL (RIYCINDEX NUMBER], VALUE_LOCATION, RO : 
3 3 4 AE C1 0035 ADDL INDEX_VALUE, RO, VALUE_LOCATION i 
os : ba AE m 035 CLRL NDEX~ VALUE : 997) 
A + (3 § 38 53$: RUEL LENGTH, VALUE_LOCATION, RO ; 0974 
2¢ 04 AC 5 C1 00361 ADDL #16, DESCRIP, : 
4 50 6! C1 00366 ADDL cris, RO, VALUE_LOCATION po 
04 Ac 32 be 6 ¢ ADDS #2, DESCRIP, RO 
” 18 0 $1 $f CMPB 3s (RO), 24 
| $0 12 7% BNEQ 56$ : 


B 5 
ASSCHANGE 16-Sep-1984 00:05:35 AX-11 Bliss-32 V4.0-74 
bess le-sep-19 4 90:97:32 EBASRTL SRC IBASCHANGE 6 2:1 
| 51 D6 00 76 INCL RY 
4c OAE 66 0 7 MOVW (VALUE_LOCATION), VALUE_DESCR 
4E OA 02 Ab 7¢ MOVB (VALUE_LOCATIONS, VALUE_DESCR+2 
0 ag 1 00381 CMPB (VALUE“LOCATION), #2 
1 0 3 BNEQ 4$ 
50 1 ? MOVL #1, RO 
4 A BRB 338 
50 03 Ag ga 548 MOVZBL 3(VALUE_LOCATION), RO 
oF AE 5 5$ MOVB = RO, VALOE_DESCR+3 
50 A 06 Ab 0394 MOVL 4(VALUE_ LOCATION), VALUE_DESCR+4 
1 4E AE 4 0 99 CHPS ALUE_DESCR*2, #2i 
54 OA 08 Ag #6 09 F nove <VALUE LOCATION) , VALUE _DESCR+8 
4C OE 06 BC BO O03A6 56$: MOVW DESCRIP, VALUE_DESCR 
50 06 ac 0 ci O3AB ADDL3 #2, DESCRIP, 
4E AE 60 90 00380 MOVE (RO), VALUE DESCR+2 
| 4F OA 01 90 00584 MOVB #1, VALUE_DESCR+3 
50 A 56 DO 00388 MOVL § VALUE_LOCATION, VALUE_DESCR+4 
1 4E AE Hi 00 38¢ cMPB VALUE~DESCR#2, #21 
50 AC 08 CT O0%¢9 ADDL3 #8, DESCRIP, RO 
4 A 60 90 003¢ MOVE. (RO), VALUE DESCR+® 
50 04 AC 03 €1 003CB S7$:  ADDL3 #3, DESCRIP? RO 
BF OF 60 9 90300 CMPB (RO), #191 
15 51 £9 00306 BLBC 58$ 
58 AE 9F 00309 PUSHAB TEMP STR_DE 
000000006 00 01 FB 0030 CALLS 1, STRSFR x 
| 7E 006 BF 9A 003E MOVZBL #BASSK _NOTIMP> -(SP) 
000000006 00 01 FB 003E7 CALLS #1. BASSS 
50 04 AC 02 C1 OO3EE 58$: ADDL3 #2. DESCRIP, RO 
" fe 33 oo3te is a 
22. AE 0915 8F BO 0038 MOVW #2325, TEMP_DSC+2 
0 AE 04 BC BO OOstE MOVW aDESCRIP, TEMP_DSC 
4 AE 2C «AE (9E 0040 MOV TEMP BUF. TEMPDSC+4 
50 06 aC 08 C1 00408 ADDL3 #8, BESCRIP, RO 
28 AE 60 90 00400 MOVE (RO), TEMP_OSC+8 
20 A Hi 00411 PUSHAB TEMP_ DSC 
2¢ «AE OF 00416 59$:  PUSHAB TEMP BUF 
56 DD 00419 60$: PUSHL VALUE_LOCATION 
cooooogns go Ah PR ARLIB EASE SRI a very 
50 AE 2c AE H G0438 HOVAB TEMP_BUF, VALUE_DESCR+4 
| 50 % Ac 03 C1 0042C 61$:  ADDL3 #3, DESCRIP, RO 
wee $8 7} Socke re ih. 
58 AE OOF 004 PUSHAB TEMP_STR_ DESC 
000000006 00 1 FB 00439 CALLS #1, STRSFREE1_Dx 
7 006 8F 9A 00440 MOVZBL #BASSK_NOTIMPT -(SP) 
000000006 1 FB 00444 CALLS #1, BASSSSTOP 
- 0048 0098 4E off 8F 00448 628: CASEB VALUE DESCRe2, #6, #22 
C4 3 = e* 
00C4 004 0040 ist 00458 64$-63$.- 


3 


$333 


S53 S383 


— 
o 
— 
GN 
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18-Sep-19 4 00:05:35 AX-11 Bliss-32 V4.0-74 P 5 
Wensepa jobs $iisesee — Yoasnte sreleaccuance 62:1 aoe $3 
OC4 (4 C4 046 4$-63$,- ; 
OCs C4 Se 04 $336 $,- ; 
C4 cs 04 65$-63$.- : 
062 C4 047 $ $-63$.- : 
$-63$.- ; 
73$-63$,- : 
73$-63$,- 3 
73$-63$,- : 
73$-63$,- : 
73$-63$,- : 
73$-63$,- : 
73$-63$,- : 
73$-63$,- : 
815-638. - : 
bt : 
73$-63$.- : 
708-638. - : 
73$-63$,- : 
73$-63$,- : 
67$-63$,- : 
685-638 : 
0093 31 0047E BRW } + 1184 
FF A744 50 BE 90 00481 64$:  MOVB @V¥ALUE_DESCR+4, -1( INDEX) CSTR_BUF I : 1067 
OOFE 31 00487 BRw 3$ : 
hE 50 BE 4A 0048A 65$:  CVTFL @VALUE_DESCR+4, STR_BUF_LONG : 1071 
2— 11 0048 BRB 69$ + 1072 
51 sa & 90490 66$: | MOVAB  TEMP_DBL, R1 : 1085 
50 0 AE DO 00494 MOVL VALUE_DESCR+4, RO : 
000000006 00 16 00498 JSB BASSSTOPY_D_Ri : 
50 24 AE 7D 0049 mova MP_D : 1086 
000000006 00 16 004A JSB BASSOSCALE_D_R1 ; 
24 =O 50 7D 004A8 MOva , TEMP_ : 1087 
6E 24 AE 6A 004AC CVTDL TEMP_DBL> STR_BUF_LONG + 1089 
OC 11 00480 BRB : 1090 
3 50 BEGAED 00482 67$:  CVTGL @VALUE_DESCR+4, STR_BUF_LONG + 1095 
05 11 00487 BRB + 1096 
6E 50 BEGAFD 00489 68$:  CVTHL a@VALUE_DESCR+4, STR_BUF_LONG + 1101 
00ce 31 004BE 69$:  BRW + 1102 
50 04 Ac 0 ct 004C1 70$: ADDL3 #3, DESCRIP, RO : 1119 
BF 8F 60 91 004C6 CMP (Rb), #191 : 
15 12 O04CA BNEQ 1$ : 
58 AE OF 004CC PUSHAS TEMP_STR_DESC > 1122 
000000006 00 01 FB OO4CF CALLS #1, STRSFREE1_Dx ; 
43 006 er 9A 00406 MOVZ2BL #BAS$K_NOTIMP’ -(SP) + 1123 
000000006 0 1 FB OO4DA CALLS #1, BASSS$STU ; 
16 06 4E AE 8F OO4E| 71$:  CASEB VALUE DESCR+2, #6, #22 > 1126 
0051 0048 004 04E6 728: <WORD 74$-72$,- ; 
002€ 005D 0057 OO4EE 75$-72$.- ; 
002E 002€ O02E O4F6 76$-72$.- : 
002E 002E 002E O4FE 73$-72$.- ; 
002€ O0¢E O0¢E 0506 77$-72$.- ; 
00 007F O2E 0050€ , $-7 $.- ; 
73$-72$,- 3 
73$-72$,- s 
73$-72$.- ; 
73$-72$.- 


| 
| 


| 


eine 


3; Routine Size: 


834 


F075 


50. «BE 
6E 
57 


1447 bytes, 


1202 1 


000000006 


58 AE 9F 0051 

000000006 90 1 FB 0051 
006 8F 9A 0051 

1 FB 005 

1D 11 005 

6E 50 85 98 005 

11 005 

6E 50 E 7 P) 

1 11 005 

6E 50 BE 00 B82 

48 11 005 

6E 50 BE 4A 005 

45 11 005 

51 4 AE 43 05 

50 Q AE 00 005 
000000006 00 16 005 

50 4 AE 70 005 
000000006 9 16 005 

24 OA 0 7D 005 
6€ 24 a 6A Boe 

25 11 005 

6E 50 BE4SAFD 005 

1¢ 11 B82 

6€ 50 BEGAFD 005 

15 11 005 

4C AE 54 AE F8 005 
4 AE OA 005 
AE QA 3€ 005 

FF A744 6— 90 005 
01 1¢ =—AE SOFT «005 

58 AE 9F 005 

08 AC DD 005 

000000006 00 02 FB 005 
58 3 =AE OF 005 

000000006 00 01 FB 005 
04 005 


Routine Base: _BASSCODE + 0018 
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ARPAPRMARAARARARAGA 


ma =e see eeeseee 


PY NNN 


DESC 
RSFREE1_Dx 
K_DATTYPERR, =(SP) 

a, BASSSSTOP 

SVALUE _DESCR+4, STR_BUF _LONG 
@VALUE_DESCR+4, STR_BUF _LONG 
QVALUE_DESCR+4, STR_BUF_LONG 
SVALUE_DESCR+4, STR_BUF _LONG 
TEMP_DBL, R1 

VALUE _DESCR+4, RO 
BASSSTOPY_D_Ri 

TEMP DBL, 
BASSBSCALE_D_R1 

0, TEMP_DBL 

TEMP_DBL> STR_BUF_LONG 
@VALUE_DESCR*4, STR_BUF_LONG 
SVALUE_DESCR+4, STR_BUF _LONG 


VALUE_DESCR*8, VALUE_DESCR, - 
aVvALUE DESCR+4, #0, B10, TEMP_P 


F LONG 
-1TINDEX)CSTR_BUF J 
. 49% 


=Mnononofnononoponepronronotny 


$ 

#2, STRSCOPY_Dx 
TEMP_STR_DES 

#1, STRSFREE1_Dx 
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5 
BASH wANce 1E-se0-1986 90:05:35 Yano Blisg=32 v4i0-742, age 27 


3 ROUTINE STORE ( ! Store — elements into array 
STR_DESC, ! Where to find the string 
5 DESCRIP ! The array to store it in 
9 ) : NOVALUE = 


tee 

! FUNCTIONAL DESCRIPTION: 

Store string elements into an array. The array will be numeric. 
FORMAL PARAMETERS: 


STR DESC.rx.dx The place from which to get the gtr ing values 
DESTRIP.rx.da The descriptor of the array or virtual array 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


AREER RE RE Re Povo 


COOONOUEWN—O 


DCDONOUVE Ww — 


WRoRoRORONoRoNNUNUnN 2 So 


Signats if an error is encountered. 


MOPOMORORORoRoRoRURoRoRonononononononononony 


AAAI AIAN 


WN OC OCONOUVE WN $0 OBNOUES WN “OOO NAY fw O 


a ee ee ee ed ed ed 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 


9 
870 é 
He : 

ze GLOBAL REGISTER 
87 r BSFS$A_MAJOR STG = 11, 
874 4 BSFSA-MINOR’ STG = 10, 
875 4 BSFSA-TEMP_STG = 9; 
876 4 
87 44 BUILTIN 

878 45 ASHP 

879 4 CVILF, 

80 4 CVTLD, 

881 48 CVILG. 

ag 49 CVTLH, 

883 50 CVTLP: 

884 51 

885 3 LOCAL 

886 5 INDE X_VALU 

887 54 VALUE “LOCATION 

55 MULTIPLIERS : REF VECTOR, 
889 36 BOUNDS : REF VECTOR, 
& LOW INDEX, 
891 58 HIGRA_INDEX, 
892 59 INDER_INCR, 


aS oe 
PASS CHa 1eo$ep=198e 1:50:06 EBASRTLCSRE SBAScNaNGE -682;1 toe 


3 3 1 60 NDE pumER 

3 8946 126 NDEX_ERROR : iy thy (0) 

3 895 6¢ VALU QDESCR : BLOCK 12, 6YTE, 

3 3 ! rf: SR Buf Pi VECTOR (255,BYTE], 

3 39 1 TEMP_BUF : VECTOR [4]; 

126 

} 901 1268 ABEL 

z 306 1 $ INCR_LOOP; 

; 90 1 9 
1s aye 1271 MAP 
13 5 127 SCRIP : REF BLOCK i BYTE) 

; 906 a3 STR_DESC : REF SLOCK C8, ByTEd; 

; 908 1275 STR_BUS = .STR_DESC CDSCSA_POINTER]; 

: 910 127 ‘6 

3 312 : : } The coefficients and bounds must be present. 

: 91 1280 2 

3 ars : 3 If ( NOT (.DESCRIP CDSCSV_FL_COEFF] AND .DESCRIP CDOSC$V_FL_BOUNDS])) THEN BASSS$STOP (BASS$K_ARGDONMAT); 
; 916 1 Hy MULTIPLIERS = DESCRIP CDSCSL_M1); 

H 4 : rf: : BOUNDS = DESCRIP CDSCSL_M1] * (ZUPVAL®.DESCRIP CDSC$B_DIMCT)); 

: 319 1 Hy] i Compute the lower and upper index numbers based on how the array 

; 920 128 ! is stored. 

. ie 

; 9 1290 IF (.DESCRIP COSC$V_FL_COLUMNI) 

; 926 1291 THEN 

3 $35 1 3 BEGIN 

3; 9 : 129 LOW INDEX = .DESCRIP CDSC$B_DIMCTI; 

3 3s 1294 HIGR_INDEX = 1; 

3 3 3 ! 99 INDER_INCR = 1; 

Geist 

; 932 1299 LOW_INDEX = 1; 

: 9 1300 HIGR_INDEX = DESCRIP CDSC$B_DIMCT); 

; 934 1301 INDER_INCR = 1; 

3 935 1 o END; 

3 OS. 

: 938 1305 ' If this is a decimal array, the length in the descriptor is the number of 
; 939 1306 ! 4 bit digits (not including the sign). Convert this length to the number 
; 940 130 ! of bytes. ‘ ; , 
3 941 1308 ! Also, if this is a virtual array, the size must be a multiple of 2. This 
: 366 1310 : is true for arrays of records as well. 

3 944 1311 "CASE DESCRIP CDSC$B_DTYPE] FROM DSCSK_DTYPE_B TO DSCS$K_DTYPE_H OF 

3 a 1318 SET 

: sr : 8 Cescex DTYPE_P) : ! decimal 

: 949 1316 LENGTH = (.DESCRIP COSCSW_LENGTH]/2) ¢ 1; 


5 
sn iSsenrtage 90:05:35 YAtetY OLseHs ge ats Oe7eg 


14-Sep-19 4:46 

3 950 1317 ; IF .DESCRIP CDSCSB_CLASS] EQL DSCSK_CLASS_BFA 

; 951 131 THEN 

; g § ; 1 2 BEGIN 

: 954 1321 § LENGTH = ( INCR I FROM 1 TO 9 BY 1 DO 
3; 955 1 § 6 If LENGTH LSS Py 1) 

; $ 1 4 THEN EXITLOOP (1 od Dg 

; 6 135 mee 

; 326 1 $ ? 

; 960 1 CINRANGE, OUTRANGE) : 

; $83 § LENGTH = .DESCRIP COSC$W_LENGTH); 

; 96 1330 : 

: 9646 1331 '¢ 

: 965 1 ‘ ' Calculate the linear index. CHANGE operates only on row 0, so all indicies 
3 208 ; except one will be zero. This code should accomodate FORTRAN arrays. 

: 968 1335 2 

; 969 1 INCR INDEX FROM 1 TO .STR_DESC COSC$W_LENGTH] DO 

; ane : i INCR_LOOP: 

; 978 1339 STR_BUF_LONG = .STR_BUF C.INDEX - 1); 

; 97 1340 INDEX_NOMBER = .LOW INDEX = .INDEX_INCR; 

: 974 1341 INDEX-VALUE = .INDER; 

; ore : $g VALUE-LOCATION = 0; 

; Lad as ; WHILE (CINDEX_NUMBER = .INDEX_NUMBER + .INDEX_INCR) NEQ (.HIGH_INDEX * .INDEX_INCR)) DO 
: 979 1 46 t IF ((.INDEX_VALUE LSS .BOUNDS [(. INDEX NUMBER = 1)#2)) ' 

; 980 1 OR (. INDEX_VALUE GTR .BOUNDS [((.INDEX_NUMBER = 1)*2) + 1])) 
: 3B 1369 § “BEGIN 

; 98 138 

; 984 1351 INDEX_ERROR = . INDEX; 

3 +4 1388 LEAVE” INCR_LOOP; 

: 987 1354 4 END; 

; 988 1355 4 

; 989 1386 4 VALUE _LOCATION = (.VALUE_LOCATION® MULTIPLIERS C.INDEX_NUMBER = 1]) + .INDEX_VALUE; 
; 44 1322 4 JMOEK_VALUE = 0; ' all subsequent indicies zero 
: 99 1389 . 

; pad 1369 VALUE_LOCATION = (.VALUE_LOCATION®.LENGTH) + .DESCRIP CDSC$A_A0); 

7 ‘¢ 

: 995 136¢ i Build a descriptor pointing to the value cell in the array. If this 

; 996 136 ! is an array of descriptors, the descriptor is copied, otherwise it 

; 997 1364 ' is constructed. 

s p44 4 : 65 be 

: 1000 1 66 4 IF (.DESCRIP COSC$B_DTYPE] EQLU DSCSK_DTYPE_DSC) 

: 1003 i309 2M Mc can 

; 1908 1370 4 

3; 1004 1371 4 P 

: 1005 1 As 4 VALUE_LOCATION : REF BLOCK (8, BYTE); 

: 1006 1373 4 


PMOPOPOPIPUPURS 2 2 2 
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4H 5 
16-Sep-1 :05:35 AX-11 Bliss-32 V4.0-74 Pp 30 
1o-308= 1382 90:97:23 EBASRTL SRe BASCHANGE .832;1 ~~ a 

VALUE _DESCR DSCSu_LENGTHI = .VALUE_LOCATION (CDSC$w LENGTH]; 

VALUE-DESCR [DS($8-D ved = .VALUE_COCATION cost BTYPE): 

VALUE “DESCR [DSC$B CLASS = UF (VALUE LOCA ION COSC$B_CLASS] EQLU DSCSK_CLASS_D) THEN DSCSK_CLASS_ 

uf se :VALUE OCATION cps¢ CLASSJ); 
VALUE _DESCR COSTSA POINTER = , VALUE EOtATION CDSCS$A_POINTER]; 
HF giv MLUEDESCR DSCSB_OTYPE] EQL DSCSK_DTYPE_P 
BEGIN 
VALUE LOCATION : REF BLOCK (12,8YTE); 
VALUE DEST DSC$B_SCALE] = .VALUE_LOCATION [DSC$B_SCALEJ; 
E * 
ELSE ona 

VALUE _DESCR DSC$4_LENGTH = .DESCRIP CDSC$W_LENGTH); 

VALUE-DESCR [DSC DT vee] = DESCRIP COSCS$B_BTYPE); 

VALUE-DESCR [DSCS$B-CLASS] = DSCSK_CLASS S; 

VALUE ~DESCR COSCSA~POINTER] = .VACUE LOCATION; 

IF (VALUE _DESCR COSC$B_DTYPE] EQL DSC$K_DTYPE_P) 

BEGIN 
DESCRIP : REF BLOCK (12.ByTE); 
VALUE_DESCR CDSC$B_SCALE] = .DESCRIP COSC$B_SCALE); 


END; 
IF (DESCRIP CDSC$B_CLASS] EQL DSCSK_CLASS_BFA 
VALUE_DESCR CDSCSA_POINTER] = TEMP_BUF (0); 


: Copy the string element to the array. The longword element must stored as 
! the data type of the array. (Note that longword is used because the 
instructions are BUILTINs.) 


pote jlejejelejajajal—) 
SESS SP ORAS SE LE nF ee SSE ETF TESS 
Poe oe ot ot or ot ot ot ot ot nt nd ek kk ed 
dt td ed md mB OOO OO 
OWOWNO VE WN OOOO VEWN O00 


ee ee ee eee LL LL eee 
ee ee ee ee ee ee ee a et ed 


ZA. AAA AMAN AAA A AAA AAA AMMA MMB HE HOI UB BB BE PME ENN BE PUNE 


Se et at et et et tte 


wn —© 


SSSS 


a ae COSCSB_DTYPE] FROM DSCSK_DTYPE_B TO DSCSK_DTYPE_H OF 


COSCSK_DTYPE_B) : 
BLOCK C.VALUE_DESCR COSCSA_POINTER], 0, 0, %BPUNIT, 1) 
= .STR_BUF_LONG; 


[DSC$K_DTYPE_w) : 
BLOCK C.VALUE_DESCR CDSCSA_POINTER], 0, 0, 2BPVAL/2, 1) 
= .STR_BUF_LONG; 


COSCSK_DTYPE_L) : 
-VALUE_DESCR COSCSA_POINTER] = .STR_BUF_LONG; 


COSCSK_DTYPE_F) : : fees t floating point 
CVTLF (STR_BUF_LONG, .VALUE_DESCR CDSCSA_POINTERI); 


COSCS$K_DTYPE_D) : ! 64-bit double floating 
BEGIN 


ra 


is 3 1431 
3 1065 14 § 
He 12 
i3 1 1435 
i3 1 14 
13 1 Y 14 
/3 107 14 ; 
is ¥ Lf 14 

3; 107 1440 
3 1076 1441 
 10%8 1208 
3 1079 1444 
3 1or8 1445 
3; 107 1446 
3: 1080 1467 
: 1082 1209 
3 1988 1450 
3 1084 1451 
‘We ik 
> 108 1454 
; 1088 1455 
3; 1089 1628 
3; 1090 145 
3; 1091 1458 
3 9 1459 
3; 109 1460 
‘we i 
HY 1998 1208 
3; 109 1464 
; 1098 1465 
; 1099 1ee8 
g 11 146 
: 1101 1468 
3171 ; 1469 
3 11 1470 
3 1106 1471 
3; 1105 1076 
t Hoe 129% 
: 1108 1475 
3 11 1476 
3 1110 1477 
3 7111 1678 
: vie 147 
We i 
eek 
3 1? 1484 
3 1313 He + 
3111 14 $ 
3; 1120 148 
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te 
: Apply scale to double value. 


LOCAL 

EMP_DBL : VECTOR (2); 

REGISTER 
= 


R1 = 1; 
CVTLD (STR_BUF_L 
BASSSCALE 4 R17 
TEMP_DBL § ] a 
TEMP DBL CijJ =. 
BASSSCOPY_D_R1 ( 
END; 


EAP DBL-LOd.. TEMP_DBL (1}); 


1 
EMP_DBL [0], .VALUE_DESCR CDSCSA_POINTER}); 
COSCSK_DTYPE_G) : : 6 test ing 

CVTLG (STR_BUF_LONG, .VALUE_DESCR COSCSA_POINTER]); 


CDSCSK_DTYPE_H) : ! Slest ing 
CVTLH (STR_BUF_LONG, .VALUE_DESCR [DSCSA_POINTER]); 


COSCSK_DTYPE_P) : ! decimal 
BEGIN 


LOCAL 
TEMP_P : VECTOR (6, BYTE); 


CVTLP (STR_BUF_LONG, ZREF(10), TEMP_P); 
ASHP (BREE T=; VALUE BESCR Cosc$e SCACE]S, REF (10). 
E ZREF (OT, VALU 


$¢ 
’ E_DESCR CDSCSW LENGTH, 
- .VALOE_DESCR COSCSA_POTNTER)); . 


CDSCSK_DTYPE_DSCJ : 
BEGIN 


od zbescaip COSCSB_CLASS] EQL DSC$K_CLASS_BFA 
BASSSSTOP (BASSK_NOTIMP); ! no virtual dyn mapped arrays 


case «VALUE _DESCR COSCSB_DTYPE] FROM DSCSK_DTYPE_B TO DSCSK_DTYPE_H OF 


COSCSK_DTYPE B) : 
BLOCK C.VALUE DESCR CDOSCSA_POINTER], 0, 0, %BPUNIT, 1) 
= .STR_BUF _LONG; 


COSCSK_DTYPE w 


J: 
BLOCK C_WALUE DESCR CDOSCSA_POINTER), 0, 0, %BPVAL/2, 1) 


= .STR_BUF_LONG 


CDSCSK_DTYPE 1) : 
-VALUE_DESCR CDSCSA_POINTER) = .STR_BUF_LONG; 


COSCSK_DTYPE_F] : : ‘ 
CVTLF (STR_BUF_LONG, .VALUE_DESCR CDSCSA_POINTERJ); 


CDSCSK_DTYPE_D) : 
BEGIN 


“bit floating point 


! 64-bit double floating 


(6) 


5 
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ea raseea ioe Pisesee — Lonsat sdb eke chante oSe:1 Pose 28 


'¢ 


: Apply scale to double value. 


MP_DBL : VECTOR (2); 


NOUS wt 


R1 = 1; 
CVTLD (STR BUF _LONG, be 25 
SCALE_D_R1 (.TEMP_DBL - «TEMP_DBL (1]); 
DBL 0 = .RO; 
i 


EE 


Ri: 
OPY_D_R1 (TEMP_DBL (OJ, .VALUE_DESCR C[DSC$A_POINTER]); 


wn 


uw 


G) : ! 6 lost ing 
TR_BUF_LONG, .VALUE_DESCR CDSCSA_POINTER)); 
H 


COSCSK_DTYPE_H] : ! floating 
CVTLH (STR_BUF_LONG, .VALUE_DESCR CDSCS$A_POINTER)); 


CDOSCSK_DTYPE_P) : ! decimal 
BEGIN 


: VECTOR (6, BYTE); 
CVTLP (STR_BUF_LONG, %REF(10), TEMP_P): 
ASHP CAREET=. VALUE DESCR Cosc$e_ScaCe}), *REF(10), 


° ALUE_DESCR COSC$W_LENGTH), 
yp, "VALOEDESCR COSC$A_POINTER)); 


CINRANGE, OUTRANGE) : 
BASSS$STOP (BASSK_DATTYPERR); 


TES; 
END; 


CINRANGE, OUTRANGE) : 
BASSS$STOP (BASS$K_DATTYPERR) ; 


TES; 
Seca CDSCS$B_CLASS] EQL DSCSK_CLASS_BFA) 
BEGIN 
IF (DESCRIP CDOSCS$B_DTYPE] EQLU DSCSK_DTYPE_DSC) THEN BASSS$STOP (BASS$K_NOTIMP); 
IF -DESCRIP COSC$B_DTYPE] EQL DSCSK_DTYPE_P 


REUILS SONA EWN OOD NONE WOO IRAE HUIS OO MOR OD oe 


PV PU PV IVIVIY BS BS BB BS Bh BA BBB BB DI BB BB BB BB IIIT 

= 
oO 
ao 
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¢ 
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a as a a a ae a a nm a ed ad nd od 2 = od od = = 
NNN NOACAOOAOAAAOAOVIIMNINNUNL SELES 
NSS SS SRS Se ees SS csS 


a ka i tk tk a at i at ot as ad 4 8 8 2 
a a a aa nk a tk tk a at a a a a a a = a a 


EDV PUD PV DUP DULUSDUDVSUSVLUSUSUSU SUISSE SUSI STS 


4 HEN 
3 BEGIN 
40 LOCAL 
41 TEMP_DSC : BLOCK (12, BYTE); 
75 4g TEMP_DSC“(DSC$B_DTYPE) = DSCSK_OTYPE_P; 
2 4 TEMP“DSC CDSCS$B7CLASS) = DSC$K CLASS SO; 
7 4 TEMP~DSC CDSCSWILENGTH) = .DESCRIP COSC$w_LENGTH); 


] 
| 
] 
i 
| 
j 
| 
| 
| 


wim ieseect94e QN0E:RS  YNGHT SUSSGRERe™S feet 


'¢ 
j Uedete the number of elements in element 0 of the array. 


45 TEMP_DSC [DSCSA_POINTER] = TEMP 

46 TEMP bee tbs DSC$B-SCALE] eye “DESCRTE. EDSe38. s¢ ALE); 

is BASSSVA_STOR (ZDESCRIP, .VALUE_LOCATION? TEMP. bso) 

4 ELSE 

9 BASSSVA_STORE (.DESCRIP, .VALUE_LOCATION, TEMP_BUF [0J); 
5 ; END; 

: END; ! end of INCR loop 


TR_LEN_LONG, 
TR; 


STR_LEN_LONG = .STR_DESC CDSC$W_LENGTHI; 

IF (DESCRIP CDSCSB_CLASS] EOL DSCSK_CLASS_BFA) 
PTR = TEMP_BUF 

ane DESCRIP CDSCSA_POINTER); 


CASE DESCRIP CDSC$B_DTYPE] FROM DSCS$K_DTYPE_B TO DSCSK_DTYPE_H OF 
COSCSK_DTYPE_B) : 
BEGIN 


IF .STR_LEN_LONG GTR 255 
BASSS$STOP(BASSK_INTERR); 
BLOCK C.PTR, 0, 0, SBPUNIT, 1) = .STR_DESC [DSC$W_LENGTH); 
END; 
CDSC$K_DTYPE_w) : 
BLOCK C.PTR, 0, 0, XBPVAL/2, 1] = .STR_DESC CDSCS$W_LENGTH); 


COSCSK_DTYPE_L 
-PTR = Eta _DESC COSCSW_LENGTH); 


CDOSCSK_DTYPE_F) : 
CVTLF (STR “LEN LONG, .PTR); 


CDOSCSK_DTYPE_DJ : 
BEGIN 


. "inal scale even to this. 


LOCAL 
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SS SSSSSESSSESER SRS E Sea S NISC RTS C SORES 
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TEMP_DBL : VECTOR (2); 
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Fe oy oy oF oF oF ot ot eh ala ah al ah ah ah bh Ae ee ee ee ek lk et ee et et et et ee eh ne et et et et et et td 


—OoO@w 
at a a ot tt 


PPAPAP APTI ££ 
wr 


SISADFAV LS Soeur 


oo 


— 
PAPAS AASAAAAOOSOAPAAPASAAAOSAOHASOSASAS 
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REGISTER 
cvT (STR: ‘ae ONG, TEMP_ 
BASSSC SCALE por R1 G eho DBL “Poy? -TEMP_DBL (1)); 
TEMP bat 1 
BASSSCOPY Dd. RI (lea det (0), .PTR); 
CDSCSK_DTYPE_G) : 

CVTLG (STR “LEN, LONG, .PTR); 


COSCSK_DTYPE_H) : 
CVTLH (STR “LEN LONG, .PTR); 


CDSCSK_DTYPE_P) : 
BEGIN 
LOCAL 
TEMP_P : VECTOR (6,BYTE); 
CVTLP (STR_LEN_LONG, %REF(10), TEMP_P 


ASHP (ZREF T=. VALUE_DESCR roscéB_ ccace yi, REF (10), TEMP_P, 
ZREF(O), VALUE-DESCR COSCSWTLENGTHJ. .P 


[DSC$K_DTYPE_DSC) : 
BEGIN 


LOCAL 
ELEM_DESC : REF BLOCK (8,BYTEI; 


If DESCRIP CDOSCSB_CLASS] EQL DSCSK_CLASS_BFA 
BASSSSTOP (BASSK_NOTIMP); ! no virtual dyn mapped arrays 


ELEM_DESC = .DESCRIP CDSCSA_ POINTER]; 
CASE” -ELEM_DESC EDSC$B_DTYPE] FROM DSCSK_DTYPE_B TO DSCSK_DTYPE_H OF 


CDSC$K_DTYPE_B) : 
BEGIN 


IF .STR_LEN_LONG GTR 255 
BASSSSTOP(BASS$K_INTERR); 
BLOCK C.ELEM bese COSCSA_POINTER], 0, 0, %BPUNIT, 1) 
.STR_DESC DSC$W_LENGTHI; 


sci of sbrvee w) : 
cot EM. bese EOSCSA, pointer). 0, 0. %BPVAL/2, 1) 
R_DESC COSCSW_ 


COSCSK_DTYPE_L 
-ECEM_ DESt LOSCSA_ POINTER) = .STR_DESC CDSC$W_LENGTH); 


CDSCSK_DTYPE_F) : ! 32-bit floating point 


Be Se Se Se Se Be Se Ge Ge Se Be Ge Ge Se Ge Se Se Ge Ge Se Se Ge Se Se Ge Ge Fe Ge Ge Ge Ge Se Ge Ge Se Ge Se Se Se Se Ge Se Se Ge Ge Se Ge Se Ge Ge Se Ge Ge Ge Se Ge ee 
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14-Sep-19 4:46 BASRTL.SRC BASCHANGE. 8 2;1 (6) 
: $38 CVTLF (STR_LEN_LONG, .ELEM_DESC CDSCSA_POINTER])); 
661 COSCSK_DTYPE_DJ : : 64-bit double floating 
066 BEGIN 
66 '¢ 
ro¢) } Apply scale to double value. 
LOCA 


TEMP_DBL : VECTOR (2): 
REGISTER” y 


2523 


Br BS AMM BB BB DV DVI DDD BP BB BBB DDI AAMT £ 


QS 


0 0 
71 CVTLD CSTR’ LEN_LONG, TEMP ); 
6S i PASSSCALE 4 R17 (. TEMP DBL -P6y. -TEMP_DBL (1)); 
S « P4 
26 a mPper Eid cn; 
76 Bet D_R1 (TEMP_DBi CO], .ELEM_DESC CDSCSA_POINTER)); 
7 
8 COSCSK_DTYPE_G) : floeting 
, CVTLG (ere “LEN LONG, .ELEM_DESC coscéa° POINTER]); 
5 COSCSK_DTYPE_H) : losting 
He CVTLH (STR “LEN LONG, .ELEM_DESC coscéa” POINTERS 3 
84 CDOSCSK_DTYPE_P] : ' decimal 
85 BEGIN 
86 LOCAL 
87 TEMP_P : VECTOR (6, BYTE); 


CVTLP (STR_LEN 4” 


); 
ASHP CHREFT” -ECEM D Des 


nee 103. TEMP_P 
Ds %REF (10), 


PAEA.AALARA AAA AAAAA AA AAAA AAA AAS 

9 
4d 
oO 
bad 
es 
mn 
oO 

“= 
me 


ee ee mm ee ee ee ed ed od wd oe 8 
IA. AALWAIPO PI RIPOIPIPINPIPINID) 2 So 
—"OO@BNOUEWN "OC OOO ufwn—COoOw 
ee ee ee ee ee ae ee ee ee ee ee el el el el el a el el a el el 


8 
i 91 (0), ELEM"DESC CDSC$W_LENGTH), 
3 ~ELEM_OESC toscéa POINTER) ; 
93 END; 
3 95 CINRANGE OUTRANGE) : 
96 S$S$STOP (BASS$K_DATTYPERR); 
69 
698 TES; 
Oe ‘oh 
701 ( INRANGE name 
3 5 208 BASS$STOP (BASS$K_DATTYPERR); 
3 704 TES; 
28 705 
39 206 IF .INDEX_ERROR GTR 0 
1 708 BASSS$STOP (BAS$K_SUBOUTRAN); 
$ 710 IF (DESCRIP CDSC$B_CLASS) EQL DSC$K_CLASS_BFA) 
3 re IF .DESCRIP CDSC$B_DTYPE) EQL DSCSK_DTYPE_P 
346 71 THEN 
714 BEGIN 
348 715 LOCAL 


-—_— 


ae 


Be Ge Se Ge Se Se Se Oe Se Ge Se Se Ss Ge Se Se Se Ss Se Se Se Ge Ss Se Se Ge Ge Se Se ee 


E 

| 59250 
INF O#250 
INF O#250 
INFO#250 
INF 08250 
INFO#250 
INF O#250 
INF O#250 

| 

| 

| 

| 


1349 171 
1 ? 171 
1 171 
1 § 171 
1 1720 
1354 1721 
1886 1758 
1 39 1724 
1358 1725 
1359 17 
1 17 
136 1726 
1 1729 


IN 
Referenced REGISTER 


Referenced REGISTER 
Referenced REGISTER 
Referenced REGISTER 
Referenced REGISTER 
Referenced REGISTER 
Referenced REGISTER 
Referenced REGISTER 


oc 


16 


LSE 
BASSSVA_STORE (.DESCRIP, 0, .PTR); 


probably 
probably 
probably 
probably 
probably 
probably 
probably 
probably 


06 AC 


OA AB 


7E 
000 A] 
000000006 99 


not 
not 
not 
not 
not 
not 
not 
not 


initialized 
initialized 
initialized 
initialized 
initialized 
initialized 
initialized 
initialized 
OFFC 00000 STORE: 
BO AE 9E 00002 
be tt 00008 
60 ODD Sooo8 
08 08 Ft dont 
on AB 93 oonts 
006 BF i 0004p 18: 
14 KB a 009 , 23: 
14 AB4 OF 90030 
92 E1 000 
0 00 000 
O1 fe Oo0ai 
7 f 0045 
3 DO 00047 3$%: 
1 4 004A 
02 AB BF OOOGE 4$: 


- WORD 
MOVAB 


AX-11 Oh het -32 v4.0 


735 
746 BASRTL. SRC} BASCHANGE . 3 231 


$6; 
SC$w_LENGTHI; 
C$8_SCALE); 


! end of STORE 


at + PS ae RS. R4,R5,R6,R7,R8,RI,R10,R11 


INDEX ERROR 
an STR. DESC, RO 


pesce P, RB 
#6, 10(R8), 18 
10(R8) 


$ 
#BASSK ARGDONMAT, -(SP) 
#1, BASSS 

20iR O(n), Bee 


tr str OUNDS 
a3. 10 rt 
tou in x 
sy: mits INDEX 
a. INDER_INCR 
at, LOW_ INDEX 


neg X_INCR 
x tke} a | #22 


1203 


1237 
1275 


1281 


mr 


a a es ed ee se 
SSSSSELS FA 
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#43 i at 90:92:22 BASRTL.. SRC JBASCHANGE . 5 2:1 nal | 

E e E E 53 S$: «WORD 6$-5$,- : 

Wyld E é 0 38 6$-5$,- : 

Ook & E 0006 6$-5$.- : 

E OE E 068 6$-5$,- : 

2€ E OE E 00 6$-5$,- : 

E O2E E 0078 6$-5$,- : 
6$-5$,- : 
6$-5$.- : 
6$-5$.- : 
6$-5$.- : 
6$-5$.- : 
6$-5$.- : 
6$-5$.- : 
6$-5$.- : 
6$-98.- ; 

$-5$.- ; 
6$-5$,- : 
6$-5$.- : 
6$-5$,- : 
6$-5$.- : 
6$-5$,- : 
6$-5$.- : 
6$-5$ : 
56 68 3C 00081 6$ MOVZWL (R8), LENGTH + 1328 
29 11 00084 BRB 10$ ; 
52 68 3C 00086 7$ MOVZWL (RB), R2 + 1316 
5 0 6 00089 DIVL2 #2, R2 ; 
56 01 A2 9E 0008C MOV 1(R2), LENGTH : 
BF OF 03 As 91 00090 CMPB Os 3(RB). #191 : 1317 
18 12 00095 BNEQ 10$ : 
52 01 09 00097 MOVL #1, I : 1322 
53 01 52 78 OOO9A 8S: ASHL 1, #1, R3 : 
53 56 D1 O009E CMPL LENGTH, R3 : 
03 18 OOOA1 BGEG 4 6-«O9$ : 
56 53 pO O00A3 MOVL 3, LENGTH + 1323 
07 11 0006 BRB 10$ : 
EE 52 09 £3 O00A8 9S AOBLEQ #9, I 8s + 1322 
56 01 ce QOOAC MNEGL #1, LENGTH > 1321 
2c oA 04 ac c OOAF 10$ MOVZWL astRe DESC, 44(SP) : 1336 
28 «AE 51 18 AE C3 00084 SUBL3_ INDER_INCR, “roe INDEX, 40(SP) : 1340 
24 =A 18 BE4O SE OOOBA MOVAB aINDER. INCRCHIGA_INDEX], 36(SP) > 1344 
0c AE D4 990¢ CLRL _—sXINDEX : 1356 
42 11 000¢ BRB 14$ : 
50 oc A 01 C3 00C5 11$:  SuBL3 #1 INDEX RO : 1339 
5 6E CO OOOCA ADDL2 STR ; 
08 A 60 9A 000CD MOVZBL (ROY UStR BUF _LONG : 
5 28 AE 00 00001 VL ny (SP), IRNDEX“NUMBER : 7340 
1c AE OC AE DO 00005 MOVL _—INDEX, HOE x VALUE + 1341 
54 D4 OOODA CLRL VALUE _LOCATION 3 1342 
55 18 AE CO OOODC 12$: ADDL2 INDEXTINCR INDEX NUMBER + 1344 
24 «AE 3 D1 OO0EO CMPL - INDEX“NUMBER, 36( F 
4 13 000E4 BEQL «16 F 
50 55 01 78 O00E6 ASHL. = #1, INDEX NUMBER, RO > 1346 
51 10 A 08 C3 OOOEA SUBL3 #8. BOUN : 
614 1¢ AE D1 OOOEF CMPL NOEX OVALUE,, Ri RIDEROI ; 
OC 19 OOF 4 BLSS $ ; 
51 10 AE 04 C3 000F6 SUBL3 #4, BOUNDS, R1 : 1347 


viene 


é 
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1e~gee-} 38e 90:9 46 EBASRTL SRE BASCHANGE .832;1 — 
6140 1C «AE 01 O00F CMPL INDEX, VALUE, (R1) CROJ : 
08 15 001 BLE 5$ : 
06 AE OC AE p0 102 13$: MOVL NDEX, INDEX_ERROR + 1351 
OIA 1 00107 14$: BRW ’ : 1352 
50 54 FC A745 C5 OO10A 15$: MULLS =4(MULTIPLIERS)CINDEX_NUMBERI, - > 1356 
VALUE_LOCATIO : 
54 50 10 AE OC on ADDL3 INDEXTVALUE, RO, VALUE_LOCATION : 
1C AE 04 0011 CLAL INDEX_VALUE ; 1357 
: 11 0011 BRB 2$ t 1344 
50 54 6 C5 OO11A 168: MULL 3 ENGTH, VALUE_LOCATION, RO : 1360 
54 0 10 As Ci oie ADDL (RB), RO, VALUE_LOCATION : 
: A bs 01 CLRL (SP) : 1367 
18 AS 91 00126 CMPB (RB), #24 : 
31 12 OO12A BNEQ 9$ 3 
20 AE D6 GO12C INCL  32(SP) : 
4C AE 64 BO 0012F MOVW § (VALUE_LOCATION), VALUE_DESCR : 137% 
se A 02 AG 90 001 3 MOVB g{VALUE LOCATIONS VALUE _DESCR#2 + 1375 
02 03 Ad 91 00138 cM (VALUE“LOCATION), #2 : 1376 
05 if; 0013¢ BNEQ 178 : 
50 01 DO 0013€ MOVL #1, RO ; 
04 11 00141 BRB 18$ : 
50 03 AG OA 00145 17$:  MOVZBL 3(VALUE_LOCATION), RO : 1377 
4F OA 50 90 00147 18$: OV RO, VALOE_DESCR+ 3: 1376 
50 OA 04 AS 00 00188 MOVL  4(VALUE LOCATION), VALUE_DESCR+4 ; 1378 
1 4E AE 91 0015 CMPB  =s- VALUE_DESCR+2, #21 : 1379 
2 12 00154 BNEQ ; 
54 AE 08 Ad 00156 MOVB (VALUE_LOCATION), VALUE _DESCR+8 + 1384 
| 1¢ 11 00158 BRB 20$ 3 1367 
4C AE 68 B80 0015D 19$:  MOVW (RB), VALUE_DESCR : 1389 
4E AE 02 a8 90 00161 MOVB 2(R8), VALUE DESCR+2 ; 1390 
4F AE 01 90 00166 MOVB #1, VALUE_DESCR+ 3; 139 
| 50 A 54 DO OO16A MOVL  VALUE_LOCATION, VALUE_DESCR+4 ; 139¢ 
1 6E AE 91 00166 CMPB = VALUE DESCR#2, #21 : 139 
05 fA 0017 BNEQ 0$ ; 
54 OA 08 AB 90 00174 MOVB (R8), VALUE_DESCR+8 : 1398 
14 AE 04 00179 208: CLRL 0(SP5 : 1402 
BF 8F 03 As 91 0017C CMPB (RB), #191 : 
08 12 00181 BNEQ 1$ ; 
14 AE D6 00183 INCL 0(SP) ; 
| 50 AE 3c = AE s«O9E: «00186 MOVAB TEMP_BUF, VALUE_DESCR+4 + 1404 
| 16 06 02 aS &F 00188 218: CASEB 2(RBY, #6, #22 : 1412 
| 0072 08D 0086 007F 00190 22$: <WORD  27$-22$,- : 
0072 0072 0098 0094 00198 8$- F 
0072 907 007 07 001A0 9$ ; 
07 007 07 O18 6$ ; 
| 003 007 07 00180 0 : 
| 0066 OOBE 007 00188 i$ ; 


: 
; 
arenes 
ef : 
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1o- 308-1384 90:97:22 EBASRTL- SRE IBASCHANGE .B 2:1 _ Pe 
6$-22$.- : 
gs $.° 3 
$-22$.- : 
6$-22$.- : 
$-22$,- : 
$-22$,- : 
42 11 0018 BRB — : 1527 
oa AE GS GOED 2s: BBe Stam. es : 148 
comms Fae DBI ug, ERE APES, on, ca Ero 
: +e, ° 3 
004 038 0104 te ‘WORD S78 $$,- : 
005 05 010¢ 8$-25$.- : 
90 E O2e O1E4 9$-25$.- : 
005E OO5E «OTS $$-583.- 
007A SSE OO1FC 1$-25$,- : 
6$-25$.- : 
6$-25$.- : 
6$-25$.- : 
6$-25$.- : 
6$-25$.- } 
6$-25$.- : 
6$-25$.- : 
6$-25$.- : 
6$-25$,- : 
4$-25$.- : 
6$-25$.- : 
6$-25$,- : 
6$-25$,- : 
6$-25$,- : 
6$-25$,- 3 
s35°° ; 
7E 006 8F 9A 00202 268: MOVZBL #BASSK_DATTYPERR, -(SP) : 1521 
000000006 00 01 FB 00206 CALLS #1, BAS$$STOP : 
66 11 00200 BRB 5$ : 
50 BE 08 AE 90 0020F 27$: ROVE TR_BUF LONG, @VALUE_DESCR+4 > 1474 
50 BE 08 AE B0 $0516 28$:  MoVvW TR_BUF_LONG, @VALUE_DESCR+4 : 1478 
58 11 0021B BRB 5$ : 
50 BE 08 AE 00 00210 29%:  MOVL $18 BUF LONG, @VALUE_DESCR+4 > 1481 
51 11 00222 BRB 5$ ; 
50 BE 08 AE 4E 00224 30S: CVTLF STR_BUF _LONG, @VALUE_DESCR+4 > 1484 
4A 11 00229 BRB 5$ : 
3 OA 8 AE gt 00228 31$:  CVTLD STR_BUF_LONG, TEMP_DBL > 14% 
50 4 AE D 00 0 MOVa TEMP pac : 1497 
000000006 0 16 00 JSB BASSSCALE_D_R1 : 
34 A 0 70 00 A MOV 0, TEMP_D : 1498 
5 4 AE 9E 00 MOVAB TEMP_DBL > 1500 
51 0 AE 00 00 4 MOVL VALUE _DESCR+4, R1 ; 
000000006 00 16 00246 JSB ASSS$TOPY_D_Ri ; 
27 11 0024¢ BRB : 1470 
50 BE 08 AEGEFD 0 dE 328: CVILG TR_BUF_LONG, @VALUE_DESCR+4 > 1504 
50 BE 08  AEGEFD 00256 33$:  CVILH STR_BUF_LONG, @VALUE_DESCR+4 : 1507 


& 
ASSCHANGE 1b-s ep-19 5:35 AX-11 Bliss-32 v4.0 P 40 
mass ae ats iB ea oye ih hg tS ww al 
17 13 ¢ BRB 38 : 
34 OE A 98 A 8 — 348: CVTLP LONG 510° TEMP_P : 1514 
8 4 AE Y 64 CVTBL vALOE UoER CR SS 3 1515 
2 ce 68 MNEGL RO. R R : 
00 34 OE A : $8 ASHP 0 TEMP P, #0, VALUE_DESCR, - : 1517 
50 BE 4c AE ALUE .b : 
¢ 14 AE €E9 00275 35$ BLBC (SP)> 3" : 1531 
Bbc BF Sx 0590 MOVIL BSASSK’NOTINE, <(SP? — 
000000006 0p 1 fe 1 CALLS #1, BASS : 
02 A ? 8 36$: CPG ¢88). : 1537 
3 AE 0915 8F 86 MOVW #3325, TEMP_DSC+2 : 1542 
A £3 BO 0294 MOVW (RB), EMP SC + 1544 
E 3¢ é 3 0298 MOVAB TEMP TEMP_DSC+4 : 1545 
8 AE 8 A 0 MOVB BiRBy” Ulémpe pst+38 + 154 
0 AE 9F OO2A PUSHAB TEMP MP_BSC + 154 
03 11 OO2A BRB 38$ : 
3C «= AE. OOF 0027 37S: PUSHAB TEMP_BUF : 1550 
54 DD OO2AA 38$: PUSHL VALUE_LOCATION 3 
58 DD 002A PUSHL R : 
000000006 00 03 FB 99 A CALLS i BASSS$VA_STORE : 
FEO8 0c 1 2 «AE F1 00285 39S: ACBL 4(SP), #1, INDEX, 11$ 3 1336 
® 06 BC 3C 0028 MOVZWL asta DESC, “STR_LEN_LONG : 1565 
5 b4 002¢1 CLRL R5 + 1567 
BF OAS 03 AB 91 002C3 CMPB Os«s3(RB), #191 : 
08 12 0028 BNEQ 40$ : 
D6 OO2CA INCL R5 : 
57 3C «= AE: OSE «=O02CC MOVAB TEMP_BUF, PTR : 1569 
04 11 00200 BRB 41$ : 
57 04 A8 DO 00202 40S: MOVL 4(R8), PTR : 1571 
16 02 AS B&F 00206 41$: CASEB 2(RB). #6, #22 : 1573 
0051 0031 90208 42$: .WORD 43$-42$,- : 
00E0 00EO 005¢ 0057 O0¢e 45$-42$,- : 
00E0 00EO 00E0 00 EB 46$-42$,- : 
00E0 00EO 00EO 002F 56$-42$,- : 
0 0098 00E0 00E0 doers 47$-42$,- : 
007E 0078 00E0 00303 48$-42$,- : 
56$-42$,- 3 
56$-42$,- : 
56$-42$,- 3 
56$-42$,- 3 
56$-42$,- 3 
6$-42$,- 3 
6$-42$5,- 3 
56$-42$,- g 
6$-42$.- 3 
1$-42$,- ‘ 
6$-42$,- 2 
56$-42$,- 3 
: $-42$,- 3 
6$-42$,- 3 
56$-42$,- 3 
49$-42$,- 3 
50$-42$ 3 
OOAF 31 00309 BRW 56$ ; 1792 
OOOOOOFF BF D1 0030C 43$: CMPL STR_LEN_LONG, #255 : 187 


eaggrane 


7 
000000006 05 


7 


oO 
eS 
ao 
PV FO ow £2228 


OOM L SS SFNMOWOMM 


3 
000000006 2 
4 OC«A 
59 
OOBE 
54 
9° 
4 
oH 
54 Re 
50 
50 
4C AE 
7F 
55 
00G 8F 
01 
04 A8 
02. A6 
0038 
0064 
002E 
002E 
002E 
002E 
00G 8F 


}3 
& 
1 
: 
u 
i 
5 
16 0355 
D 00345 
43 0349 
g 0340 
1 0035 
SEFD 003535 49$: 
11 0035 
6EFD 8 59 50S: 
11 0035p 
F9 OO35F 518: 
98 00364 
ef bo 68 
F8 00368 
4 71 
11 00374 og$: 
+H 00376 53$: 
A 00379 
FB 00370 
DO 00384 548: 
8F BoRee 
0038D 55$: 
00395 
00390 
ite 
003A 
00385 


9A 003BB 56$: 


WAWANAWNNNAAKBNWANNANNN ANNAN AAA 
- &- & 
on eo 
eer 


p-198e V1 iSei46 


MOVZBL 


AX-11 Bliss-32 v4.0-7 
BASRTL.SRCJBASC MANGE. 5 2:1 


Pr iets (SP) 
aster DESC, (PTR) 
TR_DESC, (PTR) 
tr_vESC, (PTR) 

TR. LEN_LONG, (PTR) 

STR LEN N LONG, TEMP_DBL 

gAseScaué sock" 


TehP. Ppa: Pat 


TRILENLLONG, (PTR) 
STR_LEN_LONG, (PTR) 
7$~ 


STR LEN_LONG "10, TEMP_P 
ALOE_DESCR+8, 


RO, #10, TEMP_P, #0, VALUE_DESCR, (PTR) 


» 548 
#BASSK_NOTIMP, =(SP) 
ys 


DESC 
ESCT. #6, #22 


~~ 
m 
c 
VIM Dew 
Z- Pre 


Sy AL Ab AD Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab db Ab Ab Ab Ab Ab Ab ab ah Al 


o 
Nm 
of 
i 
8 AAP AHRAPAPAAPAAPRAPAPAAARAAAA 


PAPA A OAD AAAAA AAO 
seeheaReheeeakhebent 


oa rw YS 


o 
NO 
rake 


#BASSK DATTYPERR, =(SP) 


1696 


« 
ASSCHANGE 18-56 = :05:35 AX-11 Bliss-32 V4.0-74 p 42 
PAsss 12-88-1986 90:07:33 BASRTL.SRCJBASCHANGE .B32;1 we 
000000006 00 1 fe Bf " CALLS An BASSS$STOP : 
QOOOO0OFF BF 4 p cB 8$: CHP. S}RALEN_LONG, #255 : 1643 
7 006 8F 9A 00301 MOVZBL #BASSK_INTERR, -(SP) t 1645 
000000006 65 1 Ff DS CALLS @ BASSeSTOP : - 
04 86 04 BC ; p 59$: ROVE asfRDESC, 4 (ELEM_DESC) : 1648 
06 86 04 8 9 E 608 move asTR_DESC, @4(ELEM_DESC) : 165 
: VZWL DESC, LEM_D + 1656 
06 86 04 BC ¢ 0 EA 61$ movz a qR DESC, @4(ELEM_DESC) : 165 
| 04 86 54 4f 6 Fi 628: CVTLF S$TRLEN_LONG, @4(ELEM_DESC) 3 1659 
45 11 00 FS 63$:  68RB 9$ : 
34 aE 54 6 O3F7 6 CVTLD STR_LEN_LONG, TEMP_DBL + 1671 
5 34 AE 70 003FB MOva EMP DBC, R : 1672 
000000006 99 16 OO3FF JSB BASSSCALE_D_R1 : 
34 AE 0 7D 00405 mova «RO, TEMP_BBc + 1673 
3 4 he 9 0409 MOVAB TEMP_DBL~ RO + 1675 
1 6 A D 9040p MOV 4(ELEM DESC), R1 : 
000000006 9 16 00411 65$: JSB BASSSCOPY_D_R1 : 
1 00417 BRB 9$ : 1638 
06 86 $446 0419 66$: CVTLG STR_LEN_LONG, @4(ELEM_DESC) : 1679 
: VTLH _LEN_LONG, LEM_D : 
04 986 346EfD O94 p 67$ cyt sR EN_LONG, @4(ELEM_DESC) 1682 
| 34 OA A 54 £9 00427 68%:  CVTLP STR_LEN_LONG, #10, TEMP_P > 1689 
0 08 Ab 98 0042C CVTBL BC ECEM_BESC), RO + 1690 
50 50 ce 004 6 MNEGL , RO : 
00 34 OE OA 50 F 0043 ASHP RO, #10, TEMP_P, #0, (ELEM_DESC), - + 1692 
04 86 a 0439 a4 (ELEM. DESC) ; 
04 AE 03 0043C 69$: TSTL JNDEX_ERROR : 1706 
08 15 0043F BLEQ 0 ; 
7E 006 8F 9A 00441 MOVZBL #BASS$K_SUBOUTRAN, -(SP) : 1708 
000000006 90 \ FB 00445 ‘ae CALLS #1, BASSSSTOP fame 
15 02 A 51 OO44F CMPB (RB), #21 : 1712 
2 AE 0915 8F 86 90495 MOVW #2325, TEMP_DSC+2 : 1717 
0 AE 68 B80 00458 MOVW (R8), TEMP_BSC : 1719 
4 AE 57 00 0045F MOVL PTR, TEMP _BSC+4 : 1720 
38 AE 98 A8 90 00465 VB 8(R8), TEMP_DSC+8 > 1721 
0 AE 9F 004 PUSHAB TEMP_DSC : 1722 
g 11 00468 BRB 72$ : 
DD 0046D 71$: PUSHL PTR : 1725 
D4 O46F 72$: CLRL  <-(SP) ; 
| 58 DD 00471 PUSH Rs ; 
000000006 00 03 FB 90475 CALLS #3, BASS$VA_STORE F 
04 0047A 73$: RET : 1729 


; Routine Size: 1147 bytes, Routine Base: _BASSCODE + O5BF 


39 ! END ! end of module BASSCHANGE 
32 O ELUDOM 


= 


.% 17 
3: 13646 17 
3 1 17 
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PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 2618 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


weer tre ere Sy mbols eeeecoeesece Pages Processing 
File Total idaded Percent Mapped Time 
-$255$DUA28: (SYSLIBISTARLET.L32;1 9776 26 0 581 00:01.0 
Information: 16 
Warnings: 0 
Errors: 0 


COMMAND QUALIFIERS 
PLIESS/CHE CKO CE TELD. INITIAL .OPTIMIZE) /MOTRACE/LISe1, ISS sBASCHANGE 108.9088 :BASCHANGE MSRC$:BASCHANGE /UPDATE = (ENHS$ : BASCHANGE 


Stze: oat code + 0 data bytes 
un Time att H 


phe Time: 

Lines/CPU Min: Ai 00" 

Lexemes/CPU-Min: 20371 
Y Used: 351 pages 

Compilation Complete 


MENT CORPORATION 
SPRL A et 9 Na 


e 
A 
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